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

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.