Записи

[Archangelos]

Составить программу, выводящую на экран расписание движения поездов (станция отправления, станция прибытия, время прибытия, время в пути).

Очень прошу помочь.
Программу прошу писать полностью.

[alex_fcsm]

uses crt;
type TRasp=record
      st_ot,st_pr,vr_pr,vr_pt:string;
      end;
var i,j:integer;
    a:array[1..100] of TRasp;
    ch:char;
begin
clrscr;
i:=0;
repeat
clrscr;
writeln('Добавить станцию(1)');
writeln('Просмотреть(2)');
writeln('Выход(Esc)');
ch:=readkey;
case ch of
'1':begin
     inc(i);
     writeln('Станция отправления');
     readln(a[i].st_ot);
     writeln('Станция прибытия');
     readln(a[i].st_pr);
     writeln('Время прибытия');
     readln(a[i].vr_pr);
     writeln('время в пути');
     readln(a[i].vr_pt);
    end;
'2':begin
    clrscr;
    for j:=1 to i do
     begin
     writeln('----------------------------');
     write('Станция отправления:');
     writeln(a[i].st_ot);
     write('Станция прибытия:');
     writeln(a[i].st_pr);
     write('Время прибытия:');
     writeln(a[i].vr_pr);
     write('время в пути:');
     writeln(a[i].vr_pt);
     end;
     readln;
    end;
 #27:exit;
  end;
until false;
end.