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

Сама программа составлена в 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.