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

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

Задание:Создать файл содержащий запись.Поля записи :ФИО,.. и т. д.
У меня возникла проблем с выводом ,я вывожу элемент на экран по первой букве фамилии и программа зацикливается.Вот мои наработки :

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type ap=record
   Fio:string[30];
   nT:string[10];
   pik:word;
   ka:word;
   plata:Word;
   end;
var
  f1:file of ap;
  a:ap;
  p,c:char;
  sort:1..5;
procedure pechat(a:ap);
begin
writeln(a.Fio);
writeln(a.nT);
writeln(a.pik);
writeln(a.ka);
writeln(a.plata);
end;

begin
assign(f1,'fap.dat');
rewrite(f1);
writeln('Abonentska plata za telefon:');
  repeat
        writeln('Vvedutb Prizvushe Im9l po-6atbkovi:');
        readln(a.Fio);
        writeln('Homep telefony:');
        readln(a.nT);
        writeln('Pik ycTaHoBku:');
        readln(a.pik);
        writeln('Kilkictb A6oHeHTIB:');
        readln(a.ka);
        writeln('plaTa 3a teJIeqpoH:');
        readln(a.plata);
        writeln('Prodovshite? y/n');
        readln(c);
        write(f1,a)
  until  (c='N') xor (c='n');
   close(f1);
 writeln('3po6iTb Bu6ip poshyky:');
 writeln('1-Im9I po-6atbkoBi');
 writeln('2-Homep telefony');
 writeln('3-pik ycTaHoBku');
 writeln('4-KilkicTb A6oHeHTiB');
 writeln('5-Plata 3a TeleqpoH');
 readln (sort);
 reset(f1);
        if sort=1 then
         begin
          write('BBeditb pershy 6ykBy pri3Bush4a ');readln(p);
           while not eof(f1) do
           begin
            if pos(p,a.Fio)=1 then
           begin
                writeln(a.Fio);
                writeln(a.nT);
                writeln(a.pik);
                writeln(a.ka);
                writeln(a.plata);
           end; end;
         end;
close(f1);
end.

[Serge_Bliznykov]

а читать из файла кто будет?!

write('BBeditb pershy 6ykBy pri3Bush4a ');readln(p);
           seek(f1,0); {установим файл на начало}
           while not eof(f1) do
           begin
              Read(f1, a);
              if pos(p, a.Fio)=1 then pechat(a);
          end;

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

Спасибо Большое очень помогли уже все работает отлично!