Описать запись с именем TRAIN

uses    crt;
 
type TRAIN= record
                nazvanie: string;
                nomer:  integer;
                vremya: string;
            end;
const n=8;
var mas: array[1..n] of TRAIN;
    mas2: array[1..n] of TRAIN;
    t, k: string;
    i, j: integer;
 
begin
    clrscr;
    for i:=1 to n do begin
        write('Nazvanie:  ');
        readln(mas[i].nazvanie);
        write('nomer:  ');
        readln(mas[i].nomer);
        write('vremya:  ');
        readln(mas[i].vremya);
    end;
    
    clrscr;
    write('Vvedite vremya:  ');
    readln(t);
    writeln;
    for i:=1 to n do begin
        if (t=mas[i].vremya) then begin
            writeln(mas[i].nazvanie);
            writeln(mas[i].nomer);
            writeln(mas[i].vremya);
            writeln;
        end;
    end;
    
    writeln('Sortirovka po nazvaniyu:');
    writeln;
    
    for j:=1 to n-1 do begin
        for i:=1 to n-1 do begin
            if  mas[i].nazvanie>mas[i+1].nazvanie then begin
                mas2[i]:=mas[i];
                mas[i]:=mas[i+1];
                mas[i+1]:=mas2[i];
            end;
        end;
    end;
    
    for i:=1 to n do begin
        writeln(mas[i].nazvanie);
        writeln(mas[i].nomer);
        writeln(mas[i].vremya);
        writeln;
    end;
    
    readln;
end.