Создать структуру, описывающую вагоны поезда

type
    vagon = record
        kolmest: integer;
        fam: string[100];
        god: integer;
        tip: string;
    end;
var
    mas: array[1..4] of vagon;
    nom,i: integer;
 
procedure input;
begin
 writeln('Âàãîí ¹',i)
 write('Êîëëè÷åñòâî ìåñò: ');
 readln(mas[i].kolmest);
 write('Ôàìèëèÿ ïðîâîäíèêà: ');
 readln(mas[i].fam);
 write('Ãîä âûïóñêà: ');
 readln(mas[i].god);
 write('Òèï âàãîíà (êóïåéíûé, îáùèé, ïëàöêàðòíûé) : ');
 readln(mas[i].tip);
 writeln;
end;
 
function TipVagon(n:integer):string;
begin
write('Êîëëè÷åñòâî ìåñò: ', mas[n].kolmest, ' Ôàìèëèÿ ïðîâîäíèêà: ', mas[n].fam, ' Ãîä âûïóñêà: ', mas[n].god, ' Òèï âàãîíà: ',mas[n].tip);
writeln;
TipVagon:=mas[n].tip;
end;
 
 
begin
    writeln('Ââåäèòå äàííûå î ÷åòûðåõ âàãîíàõ ');
    for i:=1 to 4 do
    input;
 
    writeln('Ââåäèòå íîìåð çàïñè äëÿ îòîáðàæåíèÿ èíôîðìàöèè î íåé:');
    readln(nom);
    TipVagon(nom);
 
    writeln
    writeln('Âñå âîãîíû âûïóùåííûå äî 1970 ãîäà:');
    for i:=1 to 4 do
    with mas[i] do
            if god < 1970 then
            writeln('Êîëëè÷åñòâî ìåñò: ', kolmest, ' Ôàìèëèÿ ïðîâîäíèêà: ', fam, ' Ãîä âûïóñêà: ', god, ' Òèï âàãîíà: ',tip);
 
    writeln;
    writeln('Âñå êóïåíéíûå âàãîíû:');
    for i:=1 to 4 do
        with mas[i] do
        if tip = 'êóïåéíûé' then
        writeln('Êîëëè÷åñòâî ìåñò: ', kolmest, ' Ôàìèëèÿ ïðîâîäíèêà: ', fam, ' Ãîä âûïóñêà: ', god, ' Òèï âàãîíà: ',tip);
end.