Блок схема

[NewStudents]

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

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

[Alex11223]

Вы не перепутали "помогите" и "сделайте за меня"? Вряд ли кто-то будет за вас рисовать блок-схему.

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.