program pilet;
uses crt;
var
 piletinumber, liiginumber, liikidearv, valitud, uus: integer;
 abi: char;
 summa: real;
 piletiliik:array[1..10]of string;
 piletihind:array[1..10]of integer;
 f: text;



procedure muuda;
begin
 textcolor(white);
 textbackground(blue);
 gotoxy(10, 7+valitud);
 write(piletiliik[valitud]);
 valitud:=uus;
 textcolor(black);
 textbackground(lightgray);
 gotoxy(10, 7+valitud);
 write(piletiliik[valitud]);
end;


procedure alusta;
var i: integer;
begin
 textbackground(blue);
 clrscr;
 textcolor(white);
 gotoxy(1, 1);
 writeln('�����������������������������������������������������������������������������Ŀ');

 for i:=2 to 23 do
 begin
  gotoxy( 1, i); write('�');
  gotoxy(79, i); write('�');
 end;
 gotoxy(1, 24);
  writeln('�������������������������������������������������������������������������������');
  gotoxy(49, 17);
  writeln('���������������������Ŀ');
 for i:=18 to 20 do
 begin
  gotoxy( 49, i); write('�');
  gotoxy( 71, i); write('�');
 end;
 gotoxy(49, 21);
  writeln('�����������������������');


 gotoxy(14, 6); write('Pilet:');
 assign(f, 'pilet.txt');
 rewrite(f);
 close(f);
 summa:=0;
 piletinumber:=10000;
 textcolor(white);
 liikidearv:=4;
 piletiliik[1]:='Lapsepilet   ';  piletihind[1]:= 2;
 piletiliik[2]:='Tudengipilet ';  piletihind[2]:= 4;
 piletiliik[3]:='Taispilet    ';  piletihind[3]:=12;
 piletiliik[4]:='Perepilet    ';  piletihind[4]:=20;
 for liiginumber:=1 to liikidearv do
 begin
     gotoxy(10, 7+liiginumber);
     writeln(piletiliik[liiginumber]);
 end;
 valitud:=1; uus:=1; muuda;
end;


procedure vali_liik;
begin
 repeat
  abi:=readkey;
  if abi=chr(0) then begin
   abi:=readkey;
   if abi='H' then
      if valitud>1 then uus:=valitud-1
      else  uus:=liikidearv;

   if abi='P' then
      if valitud<liikidearv then uus:=valitud+1
      else   uus:=1;

      muuda;
  end;
 until (abi=chr(27)) or (abi=chr(13));
  if abi=chr(27) then valitud:=5000;
end;

procedure tryki_pilet;
var i: integer;
begin
 textcolor(white);
 textbackground(blue);
 gotoxy(50, 18);
 write(piletiliik[valitud]);
 gotoxy(50, 19);
 write('Pileti number: ', piletinumber);
 gotoxy(50, 20);
 write('Pileti hind:   ', piletihind[valitud]:2);
 append(f);
 writeln(f, 'Taaralinna transpordikeskus');
 writeln(f);
 writeln(f, piletiliik[valitud]);
 writeln(f, 'Lunastasite pileti nr. ',piletinumber);
 writeln(f, 'maksumusega ',piletihind[valitud]:5,' kr.');
 writeln(f, 'Uute kohtumisteni!');
 for i:=1 to 5 do writeln(f);
 close(f);
 piletinumber:=piletinumber+1;
 summa:=summa+piletihind[valitud];
end;

procedure ots;
begin
 textbackground(black);
 clrscr;
 writeln('T�na m��di ',piletinumber-10000,' piletit ',
               'kogusummaga ',summa:6:2,' krooni');
 readln;
end;


begin
 alusta;
 vali_liik;
 while(valitud<500) do
 begin
   tryki_pilet;
   vali_liik;
 end;
 ots;
 textmode(lastmode);
end.