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

Отдуши браан спс

var timeout,timein,traintype:string; n:integer;beginwriteln('Vvedite nomer poezda');readln(n);case n of1: begin timeout:='8.00';timein:='8.40';traintype:='Passagirskiy';end;2: begin Znachenija end; i tak daleeend;end.