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

Program zap_9;

Uses Crt;

Const
  n = 10;

Type
  rasp = record
    pred, vid, prep: string[20];
    data: string[8];
  end;

Var
  a: array [1 .. n] of rasp;
  i: byte;

BEGIN
  ClrScr;
  for i := 1 to n do
    with a[i] do
    begin
      Writeln('Введите предмет ', i);
      Readln(pred);
      Writeln(' Вид отчетности');
      Readln(vid);
      Writeln('Дата');
      Readln(data);
      Writeln(' ФИО преподавателя');
      Readln(prep);
    End;
  Writeln('расписание экзаменов и зачетов');
  for i := 1 to n do
    with a[i] do
      Writeln(pred, ’ ‘, vid, ’ ‘, data, ’ ‘, prep);
  Readln;

end.