Записать в файл - PascalABC.NET

Формулировка задачи:

Надо это записать в файл и вывести в окно вывода.

const n=5;
type toy=record
      price:integer;
      age:char;
      sum:integer;
      z:string;
      kol:integer;
     end;
var x:array[1..100] of toy;
    KOL:INTEGER;
    i:integer;
begin
for i:=1 to n do
 with x[i] do
  begin
   Write('(Название игрушки): ');
   Readln(z);
   Write(' ЦЕНА: ');
   Readln(price);
   Write(' ВОЗРАСТ: ');
   Readln(age);
   Write(' ВВЕДИТЕ КОЛ-ВО ИГРУШЕК: ');
    Readln(KOL);
    sum:= kol*price;
  end;
Writeln;
Writeln('Сведения об ассортименте игрушек в магазине: ');
Writeln('--------------------------------------------------------------------');
Writeln('|   НАЗВАНИЕ ИГРУШКИ   |  ЦЕНА  |  ВОЗРАСТ  |  СУММА  | КОЛИЧЕСТВО |');
Writeln('--------------------------------------------------------------------');
 for i:=1 to n do
  Writeln('|',x[i].z:22,'|',x[i].price:8,'|',x[i].age:11,'|',x[i].sum:9,'|',x[i].kol:13,'|');
Writeln('---------------------------------------------------------------------');
end.

Решение задачи: «Записать в файл»

textual
                            Листинг программы 
                        

                            const
  n = 5;
 
type
  toy = record
    price: integer;
    age: char;
    sum: integer;
    z: string;
    kol: integer;
  end;
 
var
  x: array[1..100] of toy;
  KOL: INTEGER;
  i: integer;
  f: text;
begin
  assign(f, 'output.txt');
  rewrite(f);
  for i := 1 to n do
    with x[i] do
    begin
      Write('(Название игрушки): ');
      Readln(z);
      Write(' ЦЕНА: ');
      Readln(price);
      Write(' ВОЗРАСТ: ');
      Readln(age);
      Write(' ВВЕДИТЕ КОЛ-ВО ИГРУШЕК: ');
      Readln(KOL);
      sum := kol * price;
    end;
  Writeln;
  Writeln('Сведения об ассортименте игрушек в магазине: ');
  writeln(f, 'Сведения об ассортименте игрушек в магазине: ');
  Writeln('--------------------------------------------------------------------');
  Writeln(f, '--------------------------------------------------------------------');
  Writeln('|   НАЗВАНИЕ ИГРУШКИ   |  ЦЕНА  |  ВОЗРАСТ  |  СУММА  | КОЛИЧЕСТВО |');
  Writeln(f, '|   НАЗВАНИЕ ИГРУШКИ   |  ЦЕНА  |  ВОЗРАСТ  |  СУММА  | КОЛИЧЕСТВО |');
  Writeln('--------------------------------------------------------------------');
  Writeln(f, '--------------------------------------------------------------------');
  for i := 1 to n do 
  begin
    Writeln('|', x[i].z:22, '|', x[i].price:8, '|', x[i].age:11, '|', x[i].sum:9, '|', x[i].kol:13, '|');
    Writeln(f, '|', x[i].z:22, '|', x[i].price:8, '|', x[i].age:11, '|', x[i].sum:9, '|', x[i].kol:13, '|');
  end;
  Writeln('---------------------------------------------------------------------');
  Writeln(f, '--------------------------------------------------------------------');
  close(f);
end.
                        