Вывести перечень электропоездов, следующих в заданном направлении (в чем ошибка?)

type
  Poezd = record
    a: string[20];
    wo: double;
    wp: double;
    stb: integer;
    end;
  mas = array[1..20] of Poezd;
 
procedure inp(var n: byte; var a: mas);
var
  i: byte;
begin
  write('n? '); readln(n);
  for i := 1 to n do
  begin
    write('Направление ', i, '-го поезда: ');
    readln(a[i].a);
    write('Время отправления ', i, '-го поезда: ');
    readln(a[i].wo);
    write('Время в пути ', i, '-го поезда: ');
    readln(a[i].wp);
    write('Стоимость билетов по зонам ', i, '-го поезда: ');
    readln(a[i].stb);
  end;
end;
 
procedure outp(n: byte; const a: mas);
var
  i: byte;
begin
  writeln('Список участников');
  for i := 1 to n do
    writeln((a[i].a + ' ' + a[i].wo + ' ' + a[i].wp):25, a[i].stb:4) ;
end;
 
procedure wib(n: integer; const a: mas);
var
i: integer; nap : string;
begin
writeln ('Введите направление');
readln (nap);
for i:= 1 to n do
if a[i].a = a then writeln('Поезд с направлением', a[i].a ,'отправляется в ',a[i].wo ,'прибывает в ' ,a[i].wp,'цена билета ',a[i].stb) ;
end;
var
  n: byte; a: mas;
begin
  inp(n, a);
  outp(n, a);
  wib(n, a);
end.