Составить программу, выводящую на экран перечень товаров,

type
    tovar = record
        naz: string;
        ez: string;
        kol: integer;
        cena: integer;
    end;
var
    mas: array[1..10] of tovar;
    n,i: integer;
 
procedure input;
begin
 writeln('Òîâàð ¹',i);
 write('Íàçâàíèå òîâàðà: ');
 readln(mas[i].naz);
 write('Åäåíèöà èçìåðåíèÿ: ');
 readln(mas[i].ez);
 write('Êîëè÷åñòâî: ');
 readln(mas[i].kol);
 write('Öåíà: ');
 readln(mas[i].cena);
 writeln;
end;
 
procedure output;
begin
writeln(mas[i].naz:30, ' | ', mas[i].ez:20, ' | ', mas[i].kol:15, ' | ', mas[i].cena);
end;
 
begin
    writeln('Êîëè÷åñòâî òîâàðîâ:');
    readln(n);
 
    writeln;
    writeln('Ââåäèòå äàííûå î òîâàðàõ ');
    for i:=1 to n do
    input;
 
    writeln;
    writeln('Âåäîìîñòü');
    writeln('Íèìåíîâàíèå':30, ' | ', 'Åäåíèöà èçìåðåíèÿ':20, ' | ', 'Êîëè÷åñòâî':    15, ' | ', 'Öåíà');
    for i:=1 to n do
    output;
end.