Информационная система железнодорожной сети / RWROUTER

program RailWayInfoSystem;
uses types, Input, GrafUtil, CRT;
var c:char;
G:TGraph;
f:text;
Index1,Index2:byte;
Departure:TTime;
way:TWay;
label start;
begin
TextMode(259);
start:
textBackGround(black);
clrscr;
writeln('€­д®а¬ жЁ®­­ п бЁб⥬  ¦Ґ«Ґ§­®¤®а®¦­®© бҐвЁ');
writeln;
writeln('PҐ¦Ё¬ а Ў®вл');
writeln('1) Ђ¤¬Ё­Ёбва в®а');
writeln('2) Џ®«м§®ў вҐ«м');
c:=readkey;
if c=#49 then
begin
while true do
begin
clrscr;
writeln('ђҐ¦Ё¬ а Ў®вл:  ¤¬Ё­Ёбва в®а');
writeln;
writeln('„®бвгЇ­лҐ ¤Ґ©бвўЁп:');
writeln('1) Џа®б¬®ва ¬ аиагв®ў');
writeln('2) ђҐ¤ ЄвЁа®ў ­ЁҐ ¬ аиагв®ў');
writeln('3) Џа®б¬®ва а бЇЁб ­Ёп');
writeln('4) ђҐ¤ ЄвЁа®ў ­ЁҐ а бЇЁб ­Ёп');
writeln('5) ‡ Јаг§Є  а бЇЁб ­Ёп');
writeln('6) ‘®еа ­Ґ­ЁҐ а бЇЁб ­Ёп');
c:=readkey;
case c of
#27: begin
goto start;
end;
#49: begin
ViewRoutes(g);
end;
#50: begin
EditRoutes(g);
end;
#51: begin
EditTimeTable(G,true);
end;
#52: begin
EditTimeTable(G,false);
end;
#53: begin
LoadRoutes(f,g)
end;
#54: begin
SaveRoutes(f,g)
end;
end;
end;
end
else if c=#50 then
begin
Index1:=0; Index2:=0;
while true do
begin
clrscr;
writeln('ђҐ¦Ё¬ а Ў®вл: Ї®«м§®ў вҐ«м');
writeln;
writeln('„®бвгЇ­лҐ ¤Ґ©бвўЁп:');
writeln('1) ‚лЎ®а бв ­жЁЁ ®вЇа ў«Ґ­Ёп');
writeln('2) ‚лЎ®а бв ­жЁЁ ЇаЁЎлвЁп');
writeln('3) Џ®ЁбЄ б ¬®Ј® Ўлбва®Ј® ¬ аиагв ');
writeln('4) Џ®ЁбЄ ¬ аиагв  ®Ја ­ЁзҐ­­®© бв®Ё¬®бвЁ');
c:=readkey;
case c of
#27:begin
goto start;
end;
#49:begin
clrscr;
writeln('ђҐ¦Ё¬ а Ў®вл: Ї®«м§®ў вҐ«м -> ўлЎ®а бв ­жЁЁ ®вЇа ў«Ґ­Ёп');
writeln('ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД');
writeln;
Index1:=SelectStation(G);
end;
#50:begin
clrscr;
writeln('ђҐ¦Ё¬ а Ў®вл: Ї®«м§®ў вҐ«м -> ўлЎ®а бв ­жЁЁ ЇаЁЎлвЁп');
writeln('ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД');
writeln;
Index2:=SelectStation(G);
end;
#51:begin
clrscr;
writeln('ђҐ¦Ё¬ а Ў®вл: Ї®«м§®ў вҐ«м -> б ¬л© Ўлбвал© ¬ аиагв');
writeln('ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД');
writeln;
Departure:=SelectTime;
FindShowWay(G,Way,Index1,Index2,Departure,false);
end;
#52:begin
clrscr;
writeln('ђҐ¦Ё¬ а Ў®вл: Ї®«м§®ў вҐ«м -> ¬ аиагв б ®Ја ­ЁзҐ­­®© бв®Ё¬®бвмо');
writeln('ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД');
writeln;
Departure:=SelectTime;
FindShowWay(G,Way,Index1,Index2,Departure,true);
end;
end;
end;
end;

end.