Pascal/Turbo Pascal - necesito ayuda urgente con un programa

por favor AYUDENME necesito validar bien la entrada de la cedula a este programa, lo que necesito es que no se repita la cedula. aqui tengo el codigo, lo que hace es que ingreso la cedula repetida y el me avisa que ya existe pero el problema esta es cuando la vuelo y la ingreso repetida, me la acepta y la almacena en el vector y no deberia hacer eso. necesito que me ayuden soy novato en esto y no se como hacer para que funcione. GRACIAS.
Program UNEFA;
Uses crt;
Type
Tnom=array[1..8] of string[20];
Tcedu=array[1..8] of longint;

var
I,J,K,enc,resp,respues,integer;
cedu,cedu2,cd:longint;
Vnom:Tnom;
Vcedu:Tcedu;

BEGIN
clrscr;
For I:=1 to 3 do
begin
clrscr;
writeln('INTRODUZCA EL NOMBRE DEL BECARIO Nº ',I,' :');
readln(Vnom[I]);
writeln('INTRODUZCA EL NUMERO DE CEDULA:');
readln(cedu);
IF (cedu<>Vcedu[I-1]) then
Vcedu[I]:=cedu
else
begin
REPEAT
begin
writeln('LA CEDULA YA EXISTE POR FAVOR INGRESE OTRO Nº:');
readln(cedu2);
If (cedu2<>Vcedu[I]) then
begin
Vcedu[I]:=cedu2;
respues:=1
end
else
respues:=0
end;
UNTIL(respues=1);
end;
end;

Readkey;
END.

{Esto ta Corrección te sirve}

Program UNEFA;
Uses crt;
Type
Tnom = array[1..8] of string[20];
Tcedu = array[1..8] of longint;

var
I,J,K,enc,resp,respues : integer;
cedu,cedu2,cd : longint;
Vnom : Tnom;
Vcedu : Tcedu;
esiste : boolean;

BEGIN
clrscr;
For I := 1 to 3 do
begin
clrscr;
writeln('INTRODUZCA EL NOMBRE DEL BECARIO Nº ',I,' :');
readln(Vnom[I]);
writeln('INTRODUZCA EL NUMERO DE CEDULA:');
readln(cedu);
repeat
esiste := false;
for j := 1 to i do
begin
IF (cedu = Vcedu[j]) then
begin
esiste := true;
end;
end;
if esiste = true then
begin
writeln('LA CEDULA YA EXISTE POR FAVOR INGRESE OTRO Nº:');
readln(cedu);
end;
if esiste = false then
Vcedu[I] := cedu;
until esiste = false;
end;
writeln('Terminacion Entradas');
Readkey;
END.

Muchisimas gracias por ayudarme