Заполнение и вывод на экран записей из типизированного файла

program zapisi;
USES crt;
type info =record
 Nomer:string;
 Tovar:string[50];
 Stoimost:string;
end;
 
var f:file of info;
    z:info;
    d:char;
begin
clrscr;
{$I-}
assign(f,'d:\kurspascal\xxx.dat');
rewrite(f);
 d:='y';
 while d='y' do begin {Цикл ввода информации в файл}
    with z do
   begin
    write('Введите номер товара: ');
    readln(z.Nomer);
    write('Введите название товара: ');
    readln(z.Tovar);
    write('Введите стоимость товара: ');
    readln(z.Stoimost);
 
   write('Сохранить запись в файл? Y/N (По умолчанию-Y): ');
    readln(d);
    if (d='y') or (d='Y') then
      write(f,z);
 
   d:='y';
   write('Продолжить ввод информации? Y/N (По умолчанию-Y): ');
    readln(d);
         if (d='n') or (d='N') then
      break;
  end;
  close(f);
    end;
end.

 while d='y' do begin

 while (d='y') or (d='Y') do begin

close(f);
    end;

end;
close(f);

program zapisi1;
USES crt;
type
    MyRec = record
      Nomer : integer;
      Tovar  : string[50];
      Stoimost  : extended;
    end;
var f : file of MyRec;
     z  : MyRec;
     i, Cnt : integer;
begin
   Assign(f,'d:\kurspascal\xxx.dat');
   Reset(f);
   Cnt := FileSize(f);
   for i:=Cnt downto 1 do  begin
      seek(f,i);
      Read(f, z);
      WriteLn(z.Nomer, z.Tovar, z.Stoimost);
   end;
   Close(f);
end.