Составить программу, выводящую на экран ведомость начисленной заработной платы (Ф.И.О., должность, дата рождения, заработная плата)

type
    rabotnik = record
        fio: string;
        dol: string;
        god: string;
        zar: integer;
    end;
var
    mas: array[1..10] of rabotnik;
    n,i: integer;
 
procedure input;
begin
 writeln('Ðàáîòíèê ¹',i);
 write('Ââåäèòå ÔÈÎ: ');
 readln(mas[i].fio);
 write('Äîëæíîñòü: ');
 readln(mas[i].dol);
 write('Ãîä ðîæäåíèÿ: ');
 readln(mas[i].god);
 write('Çàðîáîòíàÿ ïëàòà: ');
 readln(mas[i].zar);
 writeln;
end;
 
procedure output;
begin
writeln(mas[i].fio:30, ' | ', mas[i].dol:15, ' | ', mas[i].god:15, ' | ', mas[i].zar);
end;
 
begin
    writeln('Êîëè÷åñòâî ðàáîòíèêîâ:');
    readln(n);
    
    writeln;
    writeln('Ââåäèòå äàííûå î ðàáîòíèêàõ ');
    for i:=1 to n do
    input;
 
    writeln;
    writeln('Âåäîìîñòü');
    writeln('ÔÈÎ':30, ' | ', 'Äîëæíîñòü':15, ' | ', 'Ãîä ðîæäåíèÿ':15, ' | ', 'Çàð. ïëàòà');
    for i:=1 to n do
    output;
end.