Информационная система железнодорожной сети / 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.