Procedura Wyszukaj

dominik94

Siemka mam problem co do procedury wyszukaj mianowicie napisałem cały program, i chciałbym zrobić procedure która będzie wyszukiwała,
czyli :

Procedure wyszukaj:
var numer2: integer;
begin
clrscr;
write('Wpisz numer szukanej osoby = ');
reset(plik);
read(plik,os);
if os.numer = numer2 then
begin
writeln('Nr identyfikacyjny - ',os.numer);
wrietln('Imie - ' ,os.imie);
wiretln('Nazisko - ' ,os.naziwsko);
(tutaj mam jeszcze pare rzeczy wpisanych ale niechce mi się wszystkieg przepisywać bo tego za dużo jest )
end;
readln;
delay(2000);
close(plik);
end;

noo ii okej program się normalnie otwiera działa wszystko pięknie dopisuje usuwa itp, ale mam problem z wyszukaniem kiedy wpisuje numer który ma wyszukaćnie pokazuje mi się nic a mianowicie:

Wpisz numer do wyszukania - (tutaj wpisuje numer np 2 albo 3)
(po chwili kursor pokazuje się linię poniżej odczeka jakieś 20-30sekund i nic się nie pokazuje, jest czarny ekran i tamten napis a po chwili wraca do początkowego menu)

pytanie co mam źle w procedurze? możecie pomóc?; /