Записи и файлы

program N3;
uses crt;
type
tovar=record
shifr: string[5];
tovar: string[20];
price:integer;
end;
myFile=file of tovar;
var 
z:boolean;
 
Procedure dob_zap(var f:myFile);
var 
a:tovar;
begin
clrscr;
assign(f,'D:\text.txt');
reset(f);
with a do
 begin
 writeln('введите шифр');
 readln(a.shifr);
  writeln('Введите название товара');
  readln(tovar);
  writeln('Введите стоимость товара');
  readln(price);
 end;
seek(f,filesize(f));
write(f,a);
close(f);
writeln('Запись о товаре добавлена');
writeln('Для продолжения нажмите Enter');
readln
end;
 
procedure vivod(var f:myFile);
var
a:tovar;
begin
clrscr;
assign(f,'D:\text.txt');
reset(f);
writeln('Список товаров:');
 begin
  while not eof(f) do
   begin
    read(f,a);
    writeln('Шифр-'+a.shifr,';Товар-'+a.tovar,';Цена-'+a.price);
   end;
 end;
close(f);
writeln('для продолжения нажмите Enter');
readln;
end;
 
 
var 
f:myFile;
q:char;
begin
clrscr;
z:=false;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-Прочитать файл');
writeln('2-Добавить товар');
writeln('Нажмите 2 раза на Enter чтобы выйти');
readln(q);
case q of
'1':vivod(f);
'2':dob_zap(f);
else exit;
end;
until not (q in ['1'..'2']);
end.

type 
  Товар = record
    Код, Наименование: String;
    Цена: integer;  Наличие: boolean;    
    constructor (qКод, qНаименование: String; qЦена, qНаличие:integer);
      begin
        Код := qКод; Наименование := qНаименование;
        Цена := qЦена;  Наличие := qНаличие = 0 ? false : true;
      end;
end;
  
begin
  var a := ReadAllLines('Input.txt');
  var Товары: Array of Товар;
  SetLength(Товары, a.Length);
  for var f := 0 to a.Length-1 do
   begin
      var Запись := a[f].toWords.toArray;      
      Товары[f] := new Товар(Запись[0],Запись[1], Запись[2].ToInteger,Запись[3].ToInteger);
   end;
   Println('Код'.PadRight(7)+'Наименование'.PadRight(22) + 'Цена'.PadLeft(9)+'   '+ 'Наличие');
   For var t := 1 to Товары.Length-1 do 
     begin
        var Вналичии := Товары[t].Наличие ? 'В наличии' : 'Отсутствует';
        Println(Товары[t].Код.PadRight(7)+Товары[t].Наименование.PadRight(22) 
            + inttoStr(Товары[t].Цена).PadLeft(9)+'   '+ Вналичии);
     end;
   Println;
   Println('Нет в наличии стоимостью более 10000:');
   Товары.Where(t -> t.Наличие and (t.Цена >= 10000)).Select(t->
     $'{t.Код.PadRight(7)}{t.Наименование.PadRight(22)}{(t.Цена).ToString.PadLeft(9)}').PrintLines;;
end.