Program Grafocska;
Uses Crt,Lista;
Const MaxPsz=50;
      MaxKimfok=20;
Type Mutato=^FaLista;
     THova=Array[1..MaxKimfok] of Mutato;
     FaLista=Record
                Pont:String[8];
                Hova:THova;
                Elozo:Mutato;

             End;
     Generalopont=Mutato;
     Tomb=Array[1..maxpsz] of Mutato;
     Halmaz=Set of Byte;

Var Bela:Tomb;
    Psz,Kf,k:Byte;
    GR:Generalopont;
    Egyik,Masik:Mutato;
    Kilep:Boolean;
    H:Halmaz;

Procedure AdatBevisz(szam:Byte;Var mit:Byte);
{  const
    Csucsok_Szama: Array [1..46] of Byte=(123456789101121314151617181920);
    Max_EL_Szam: Array [1..20] of Byte;
    SebessegTip: Array [1..3] of String[17]=('Molekula Sebess‚g',
                                             'Grafikon Sebess‚g',
                                             '      Vissza     ');
 }

  var key: char;
      i,N,kiszam: byte;
      MenuInd,Min: byte;
      x,y: Integer;

  Begin
      MenuInd:=1;
      kiszam:=0;
        Case szam of
                1: Begin
                     N:=MaxPsz+1;
                     Min:=0;
                     GotoXY(10,2);
                     Write('H ny pontja van ”sszesen a f nak: ');
                     x:=53;
                     y:=2;
                   End;
                2: Begin
                     N:=Maxkimfok;
                     Min:=1;
                     GotoXY(10,4);
                     Write('Egy pontb¢l kiindul¢ maxim lis ‚lek sz ma: ');
                     x:=53;
                     y:=4;
                   End;
        End;
      Repeat
        For i:=1 To N Do
          Begin
            Case Szam of
                    1: Begin
                         GotoXY(x+1,y);
                         Write(' ');
                         GotoXY(x,y);
                         Write(Kiszam);
                       End;
                    2: Begin
                         GotoXY(x+1,y);
                         Write(' ');
                         GotoXY(x,y);
                         Write(Kiszam);
                       End;
                    3: Begin
                         GotoXY(x,y);
                         Write(kiszam);
                       End;
            End;
          End;
        Key:=ReadKey;
        Case ord(key) of
          80: Begin
               IF MenuInd>1 Then Dec(MenuInd) Else MenuInd:=N;
               IF kiszam>Min Then Dec(Kiszam) Else Kiszam:=N-1;
              End; {le 80 jobb 77}

          72: Begin
               IF MenuInd<N Then Inc(MenuInd) Else MenuInd:=1;
               IF Kiszam<(N-1) Then Inc(Kiszam) Else Kiszam:=Min;
              End;{fel 72 bal 75}
        End;
      Until ord(key) = 13;
      Mit:=Kiszam;
  end; {Beolovas}

Procedure Beolvas_Bill_Rol(Var Bela:Tomb);
Var i,j,k,hely,Grpont:Integer;
Begin
  For i:=1 to Psz Do
      Begin
        Write('Mi az ',i,'. cs£cs: ');
        Bela[i]^.Pont:=Readkey;
        Repeat
          Write('Irja be ',i,'. cs£cs h ny cs£csra mutat: ');
          Readln(j);
        Until ((j>=0) and (j<Psz));
        For k:=1 to j do
            Begin
              Repeat
                Write('n m  kurcsi unni, de te beirni a ',i,'. elem hova muti ',k,'.-naknek: ');
                Readln(hely);
              Until ((hely>0) and (hely<=Psz));
              Bela[i]^.Hova[k]:=Bela[hely];
            End;
        For k:=j+1 to Maxkimfok do Bela[i]^.Hova[k]:=Nil;
      End;
  Write('No m n csak egy k‚rd‚s. Melyik pontja lenni ja gener l¢..iz‚.. :  ');
  Readln(Grpont);
  GR:=Bela[Grpont];
End;


Function Van_e_ut(Gr:Generalopont; Egyik,Masik:Integer):Boolean;
Begin

End;

Procedure Beolvas_Tombot;
Var I,j:Byte;
    Nev:String[8];
Begin
  For i:=1 to Psz Do
      Begin
        Gotoxy(5,6);
        Delline;
        Write(i,'. pont neve (max. 8 kar.): ');
        Readln(Nev);
        New(Bela[i]);
        Bela[i]^.Pont:=Nev;
        For j:=1 to Kf Do
            Begin
              Bela[i]^.Hova[j]:=NIL;
            End;
        Bela[i]^.Elozo:=NIL;
      End;
End;
Procedure Hova_Mutat(Const k:Byte; Var H:Halmaz; Var ST:SegedT);
Begin

End;


Begin
CLRSCR;
AdatBevisz(1,Psz);
AdatBevisz(2,Kf);
IF Psz>0 Then
   Begin
     Beolvas_Tombot;
     Writeln;
     H:=[];
     For k:=1 to Psz  Do
         Begin
           IF Not(k in H) Then H:=H+[k];
           Hova_Mutat(k,H,ST);
         End;
     Readkey;
   End;
Kiir(ST,Psz,Kilep);
{Beolvas_Bill_Rol(Bela);
Mittegyunk(Gr,Psz,Egyik,Masik);}

End.    l«ýáºûy%ÓcUuZb3ãÃÉ»{^n›Oœ\=rviÌá"ýFJê#¢9€ka3n‹bbm74·¨•)|À¾g(gï%ûø$Tôï‹ñ#ýÏ¦Ò¶¯?ë¯Á4ˆßûéæòþqr+¹1ƒ©pÖ6ÎªæZÐmâ¦‡á
ïoùñ„Ü+³ÙÌÏ®NÊîUíä{XÄfÃnõpÙÞ‚¢ylÏ<Q@÷C@9kœ±_(	(p2–D"§Œá8Ž 1hI¤âh,…ù*t©‹“ëàí7«!îÇ—[Ý­
·Þã3c¿Xo+vüí	‚O0c+x™ù:°N`‡-¬ÔÒŸbÎ&–¬ß¬Èð•íbõºascqÜtÉÐMƒŠBÏ»…˜R>m´öY(³±ûê×*€Ûåð­ÒAÄÏVÚüuæE2xHõœýYÒ`w÷ÀMìlPB•½c¶ŽùMEå[S†‚Ãa Öý¹ÔÃt°3¦ì?~ aÉsBúhÒï…†@ŽÜ
¬¾¡m›a«Ê tþBœöÖôNÎ=ºk›ªò=ÞÎ×*‰µü«`1ô|€GX7Ó¨ÉHÕMÉÊkïÁñ0ï=¼®Û$|´“w÷Ó¢­õËä³Ôd%´ÅlRIµXhl_é^€