Программа, выводящая на экран расписание учителя - Pascal

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

Товарищи, нужна ваша профессиональная помощь. Задача следующая. Составить программу, выводящую на экран расписание учителя (номер урока, время начала урока, класс, предмет, номер кабинета). Данные хранить в структуре – запись.

Решение задачи: «Программа, выводящая на экран расписание учителя»

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

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.

Объяснение кода листинга программы

Объявление типа данных tovar, который представляет собой запись (record) с полями nu (номер урока), vn (время начала), kl (класс), pr (предмет) и nk (номер кабинета).
Объявление массива mas, который содержит 10 элементов типа tovar.
Объявление переменных n и i типа integer, которые используются для подсчета количества записей и индекса текущей записи в цикле.
Определение процедуры input, которая запрашивает и сохраняет данные для каждой записи, включая номер урока, время начала, класс, предмет и номер кабинета.
Определение процедуры output, которая выводит данные каждой записи в формате расписания учителя, используя значения полей записи.
Ввод количества записей с помощью функции readln и переменной n.
Цикл for, который выполняет ввод данных для каждой записи с помощью процедуры input.
Вывод расписания учителя в формате, включающем номер урока, время начала, класс, предмет и номер кабинета.
Цикл for, который выполняет вывод данных каждой записи с помощью процедуры output.