Создать типизированный файл (Паскаль АВС)

[kushnir-lena]

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

Вот программа:
Const n=10;
Type raspisanie=record
vremea,klass,predmet:string[10];
nomeru,nomerk:integer;
end;
Var a:array[1..n] of raspisanie;
i:integer;
Begin
for i:=1 to n do
with a[i] do
begin
Writeln('Введите номер урока ');
Readln(nomeru);
Writeln('Введите время начала урока');
Readln(vremea);
Writeln('Введите класс');
Readln(klass);
Writeln('Введите предмет');
Readln(predmet);
Writeln('Введите номер кабинета');
Readln(nomerk);
end;
writeln('__________________________ ___________________________________ __');
writeln('| № урока | Время | Класс | Предмет |№ кабинета|');
writeln('__________________________ ___________________________________ __');
for i:=1 to n do
with a[i] do
writeln ('|',nomeru:8,' | ',vremea:6,' | ',klass:10,' | ',predmet:15,' | ',nomerk:5,' |');
writeln('__________________________ ___________________________________ __');
End.