Задача на файлы

program xxx;
uses crt;
type
 mf = record
  n:string[20];
  num:integer;
  adr:string[100];
  fd:string[20];
 end;
var
 f:file of mf;
 m:mf;
begin
 clrscr;
 assign(f,'file');
 reset(f);
 while not (EOF(f)) do begin
  read(f,m);
  if m.adr='П. Зори' then begin
   writeln('Магазин "',m.n,'"');
   writeln('Номер - ',m.num);
   writeln('Директор - ',m.fd);
   writeln('---------------------------');
  end;
 end;
 close(f);
 readln;
end.

program xxx;
uses crt;
type
 mf = record
  n:string[20];
  num:integer;
  adr:string[100];
  fd:string[20];
 end;
var
 f:file of mf;
 m:mf;
 b:char;
begin
 clrscr;
 assign(f,'file');
 rewrite(f);
 b:='a';
 while b='a' do begin
  write('Название  ');
  readln(m.n);
  write('Номер -');
  readln(m.num);
  write('Адрес -');
  readln(m.adr);
  write('Фамилия директора -');
  readln(m.fd);
  b:=readkey;
 end;
end.

program xxx;
uses crt;
type
 mf = record
  n:string[20];
  num:integer;
  adr:string[100];
  fd:string[20];
 end;
var
 f:file of mf;
 m:mf;
 b:char;
begin
 clrscr;
 assign(f,'file');
 if readkey='a' then begin {Для чтения нажать кнопку "a" (англ.),
                                    для записи -любую другую}
 reset(f);
 while not (EOF(f)) do begin //пока не достигнут конец файла
  read(f,m);
  if m.adr='П. Зори' then begin //Если адрес "П. Зори",
   writeln('Магазин "',m.n,'"'); //вывести название,
   writeln('Номер - ',m.num); //номер,
   writeln('Директор - ',m.fd); //и директора
   writeln('---------------------------');
  end;
 end;
 close(f);
 end else begin //нажата другая кнопка
 rewrite(f);
 b:='a';
 while b='a' do begin //пока b='a'
  write('Название  ');
  readln(m.n); //Ввод названия магазина,
  write('Номер -');
  readln(m.num); //номера,
  write('Адрес -');
  readln(m.adr); //адреса
  write('Фамилия директора -');
  readln(m.fd); //и директора.
  b:=readkey; Присвоить значение b
 end;
 end;
 readln;
end.