Файл записи,Delphi6

[Шаламай Тарас]

При поиске элемента в записи

type ap=record 
pik:word;

не выполняется поиск просто пустой экран...
поиск делал так :

begin
              Write('Pik :');
              readln(p);
              d:=StrToInt(p);
              seek(f1,0);
                while not eof(f1) do
                 begin
                  Read(f1, a);
                    if d=(a.pik) then
                      pechat;
                 end;

Посмотрите и подскажите где у меня ошибка...
Заранее благодарен.

[Шаламай Тарас]

Всё уже не надо... можете не смотреть...