Пункт назначения, время отправления, тип поезда для вводимого с клавиатуры номера поезда. паскаль используя записи написать программу которая формирует расписания поездов

Var timeout,timein,traintype:string; n:integer;
begin
writeln('Vvedite nomer poezda');
readln(n);
case n of
1: begin timeout:='8.00';timein:='8.40';traintype:='Passagirskiy';end;
2: begin
Znachenija
end; i tak dalee

end;
end.