Ввести информацию о рейсе самолета (N рейса, время вылета, время прилета, пункт назначения). Вывести информацию о всех рейсах в заданный город — Pascal(Паскаль)

Program zap_5;

Uses Crt;

Const
  n = 10;

Type
  reys = record
    n: integer;
    Vremv, Vremp, gorod: string;
  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(Vremv);
      Writeln('Время прилета');
      Readln(Vremp);
      Writeln('Город');
      Readln(gorod);
    end;
  Writeln('введите требуемый город');
  Readln(g);
  for i := 1 to n do
    with a[i] do
      if gorod = g then
        Writeln(n:4, ’ ‘, Vremv, ’ ‘, Vremp);
  Readln;

end.