Pascal/Turbo Pascal - METODO DE BUSQUEDA

BUENAS TARDES PORFAVOR NECESITO UN METODO DE BUSQUEDA SENCILLO PARA ENCONTRAR UN NUMERO DE CEDULA EN UN ARRAY. LE AGRADEZCO SU COLABORACIÓN.
LO QUE ME PIDIERON FUE CONSULTAR LOS DATOS DE UN ALUMNO A PARTIR DE UNA CEDULA DADA.

{Esto es lomas sencillo de búsqueda en un simple array}

program busqueda;
uses
crt;
var
num, i : integer;
dato : array[1..60] of word;
sal : boolean;

function rellena : boolean;
begin
for i := 20 to 80 do
dato[i - 19] := i;
rellena := true;
end;


begin
clrscr;
writeln(rellena);
writeln;
i := 1;
num := 60;
sal := false;
repeat
if num = dato[i] then
sal := true;
i := i + 1;
until (sal = true) or (i > 60);
if sal = true then
writeln(' Entrado N§ = ',num,' Encontrado = ',dato[i - 1])
else
writeln(' El N§ = ',num,' No Encontrado');
readln;

end.

muchas gracias esto es lo que necesito.