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

Program zap_7;

Uses Crt;

Const
  n = 10;

Type
  reys = record
    n: integer;
    Stan_ot, Stan_pr, vrem, vrem_p: string[10];
  end;

Var
  a: array [1 .. n] of reys;
  i: byte;
  g: string;

BEGIN
  ClrScr;
  for i := 1 to n do
    with a[i] do
    begin
      Writeln('N поезда ', i);
      Readln(n);
      Writeln('Станция отправления');
      Readln(Stan_ot);
      Writeln('Станция прибытия');
      Readln(Stan_pr);
      Writeln('Время прибытия');
      Readln(vrem);
      Writeln('Время в пути');
      Readln(vrem_p);
    end;
  for i := 1 to n do
    with a[i] do
      Writeln(n:4, ’ ‘, Stan_ot, ’ ‘, Stan_pr, ’ ‘, vrem, ‘ ‘, vrem_p);
  Readln;

end.