¿Qué errores tiene este pequeño programa?

Program Apure_Tours;

USES CRT;

const

max=99;

type

Datos=Record

nombre: string [60];

numpas: integer[10];

fechaexp: integer[8];

origenpas: string[1];

fechacervac: integer[8];

fechadecimp: integer [8];

end;

Cliente=array [1..max] of Datos;

Cven=array[1..99] of string;

Cext=array[1..99] of string;

Var

Cliente: Datos;

A: Cliente;

B: Cven;

C: Cext;

I, J, K: Integer;

resp: char;

Procedure Incluir;

Begin

I:=1;

contven:=0;

context:=0;

Repeat

Writeln ('Introduzca su Numero de Pasaporte');

Readln ( A[I].numpas);

Writeln ('Introduzca Nombre y Apellidos');

Readln ( A[I].nombre);

Writeln ('Introduzca la fecha de expedición de su pasaporte');

Readln (A[I].fechaexp);

Writeln ('Introduzca Origen del Pasaporte V/E');

Readln (A[I].origenpas);

If origenpas='V' then

Begin

Writeln ('El pasaporte es venezolano');

contven:=contven+1; B[J]:=A[I].nombre;

End;

If origenpas='E' then

Begin

Writeln ('El pasaporte es extranjero');

context:=context+1; C[K]:=A[I].nombre;

End;

Writeln ('Introduzca fecha del certificado de vacuna');

Readln (A[I].fechacervac);

Writeln ('Introduzca fecha de declaración de impuesto');

Readln (A[I].fechadecimp);

Writeln ('¿Desea incluir otro cliente? S/N');

Readln (resp);

If resp='S' then I:=I+1;

Until resp='N';

K:=I;

End;

Begin

Procedure Incluir;

End.