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

type
    tovar = record
    nu:integer;        
    vn: string;
    kl: string;
    pr: string;
    nk: integer;
    end;
var
    mas: array[1..10] of tovar;
    n,i: integer;
 
procedure input;
begin
 writeln('Запись №',i);
 write('Номер урока: ');
 readln(mas[i].nu);
 write('Время начала: ');
 readln(mas[i].vn);
 write('Класс: ');
 readln(mas[i].kl);
 write('Предмет ');
 readln(mas[i].pr);
write('Номер кабинета ');
 readln(mas[i].nk);
 writeln;
end;
 
procedure output;
begin
writeln(mas[i].nu:13, ' | ', mas[i].vn:15, ' | ', mas[i].kl:10, ' | ', mas[i].pr:15, ' | ', mas[i].nk:15, ' | ');
end;
 
begin
    writeln('Количество записей:');
    readln(n);
 
    writeln;
    writeln('Введите данные об уроках ');
    for i:=1 to n do
    input;
 
    writeln;
    writeln('Расписание учителя');
writeln('Номер урока':13, ' | ', 'Время начала':15, ' | ', 'Класс':    10, ' | ', 'Предмет':15,' | ','Номер кабинета':15,' | ');
    for i:=1 to n do
    output;
end.