Описать запись с именем "Route"

uses crt;
 
type route = record
        NachaloM   :string[20];
        KonecM  :string[20];
        NomerM  :integer;
     end;
     
var a:array [1..8] of route;
i,n,x:integer;
S:string;
f:text;
 
Procedure Swap(x,y:route);
var t:route;
    begin
     t:=x;
     x:=y;
     y:=t;
    end;
 
begin
   clrscr;
   Write('Введите название файла для записи: ');readln(s);
   s:=s+'.txt';
   assign(f,s);
   rewrite(f);
   Write('Кол-во маршрутов = ');readln(n);
   For i:=1 to n do
   with a[i] do
     begin
     Writeln(f,i,'.',#13,#10);
     Write('Название ',i,'-го начального маршрута: ');readln(NachaloM); Writeln(f,NachaloM,#13,#10);
     Write('Название конечного маршрута: ');readln(KonecM); Writeln(f,KonecM,#13,#10);
     Write('Номер маршрута: ');readln(NomerM); Writeln(f,NomerM,#13,#10);
     writeln;writeln;
     end;
   Write('Укажите номер маршрута для вывода информации: ');readln(x);
   For i:=1 to n do
   with a[i] do
   if NomerM=x then
        begin
        writeln('Начало маршрута: ',NachaloM);
        writeln('Конец маршрута: ',KonecM);
        writeln('Номер маршрута: ',NomerM);
        end;
   close(f);
   readkey;
end.