Uses Knihovna,Crt;
Const Max=15;
Type Stud=record
  Jmeno:string[20];
  Prijmeni:string[20];
  Hod1,Hod2:string[2];
End;
Var Pocet:byte;
    Studenti:array[1..Max] of Stud;
    Menu:array[1..6] of String;
    Jaky:integer;
    R,R1,R2:integer;
(**)
Procedure Setrid(X:integer);
  Var s1,s2,s3,s4:string;
      a,b:string;
      i,o:integer;
  Begin
   for o:=1 to Pocet-1 do Begin
   for i:=2 to Pocet-1 do
     Begin
       Case X of
         1:Begin
             a:=Studenti[i-1].Jmeno;
             b:=Studenti[i].Jmeno;
           End;
         2:Begin
             a:=Studenti[i-1].Prijmeni;
             b:=Studenti[i].Prijmeni;
           End;
         3:Begin
             a:=Studenti[i-1].Hod1;
             b:=Studenti[i].Hod1;
           End;
         4:Begin
             a:=Studenti[i-1].Hod2;
             b:=Studenti[i].Hod2;
           End;
       End;
       if b<a then
         Begin
           With Studenti[i-1] do Begin s1:=Jmeno;s2:=Prijmeni;s3:=Hod1;s4:=Hod2; End;
           Studenti[i-1].Jmeno:=Studenti[i].Jmeno;
           Studenti[i-1].Prijmeni:=Studenti[i].Prijmeni;
           Studenti[i-1].Hod1:=Studenti[i].Hod1;
           Studenti[i-1].Hod2:=Studenti[i].Hod2;
           With Studenti[i] do Begin Jmeno:=s1;Prijmeni:=s2;Hod1:=s3;Hod2:=s4; End;
         End;
     End; End;
  End;
(**)
Procedure DejMenu(X:integer);
  Var i:integer;
  Begin
    for i:=1 to 6 do begin
      if X=i then Barva(11,4) else Barva(7,0);
      Locate(2,i+3,Menu[i]);
    End;
    Barva(7,0);
  End;
(**)
Procedure Uvod;
  Begin
    Barva(7,0);
    ClrScr;
    Locate(1,2,DejNaStred('DATABAZE POMOCI TYPU RECORD'));
    VytvorRam(1,3,27,10,1);
    VytvorRam(1,1,80,24,1);
    VytvorRam(1,3,80,3,0);Locate(1,3,'Ì');Locate(80,3,'¹');
    Locate(1,10,'Ì');Locate(27,10,'¼');Locate(27,3,'Ë');
    DejMenu(Jaky);
  End;
(**)
Procedure NactiData;
  Var F:file of Char;
      S:string;a:char;
      i,o:integer;
      B:boolean;
  Begin
    Pocet:=1;
    i:=0;s:='';B:=True;
    Assign(F,'Data.dat');
    Reset(F);
    While Not EOF(F) do begin
      Read(F,a);
      s:=s+a;
      if a=' ' Then Begin
        With Studenti[Pocet] do Begin
        Case i of
          0:Jmeno:=s;
          1:Prijmeni:=s;
          2:Hod1:=s;
          3:Hod2:=s;
        End;
        s:='';
        i:=i+1;
        if i=4 then Begin i:=0;Pocet:=Pocet+1;End;
        End;
      End;
    End;
    Close(F);
  End;
(**)
Procedure Zobrazit;
  Var i:byte;
  Begin
    ClrScr;
    Locate(1,2,DejNaStred('Vypis databaze STUDENTI:'));
    VytvorRam(1,1,80,24,1);
    VytvorRam(1,3,80,3,0);Locate(1,3,'Ì');Locate(80,3,'¹');
    Locate(3,4,'Jmeno');Locate(23,4,'Prijmeni');
    Locate(43,4,'Hodnoceni I');Locate(63,4,'Hodnoceni II');
    Locate(2,5,Strings(78,'Ä'));
    For i:=1 to Pocet-1 do begin
      With Studenti[i] do begin
      Locate(3,5+i,Jmeno); Locate(23,5+i,Prijmeni);
      Locate(43,5+i,Hod1);Locate(63,5+i,Hod2);
      End;
    End;
    Locate(2,22,Strings(78,'Ä'));
    GotoXY(3,23);Write('Pocet zaznamu: ',Pocet-1);
    Readkey;
    Uvod;
  End;
(**)
Begin
  Jaky:=1;
  Menu[1]:=' Zobrazit databazi       ';
  Menu[2]:=' Tridit dle Jmena        ';
  Menu[3]:=' Tridit dle Prijmeni     ';
  Menu[4]:=' Tridit dle Hodnoceni I  ';
  Menu[5]:=' Tridit dle Hodnoceni II ';
  Menu[6]:=' Ukoncit aplikaci        ';
  Uvod;
  NactiData;
  Repeat
    Repeat
      for r1:=29 to 78 do
      For r2:=4 to 10 do Locate(r1,r2,chr(Random(100)+32));
      for r1:=3 to 78 do
      For r2:=11 to 23 do Locate(r1,r2,chr(Random(100)+32));

    Until Keypressed;
    R:=ord(Readkey);
    Case R of
      080:Begin
            Jaky:=Jaky+1;
            if Jaky=7 then Jaky:=1;
            DejMenu(Jaky);
          End;
      072:Begin
            Jaky:=Jaky-1;
            if Jaky=0 then Jaky:=6;
            DejMenu(Jaky);
          End;
       13:Begin
            Case Jaky of
              1:Begin NactiData;Zobrazit;End;
              2..5: Begin Setrid(Jaky-1);Zobrazit;End;
              6:R:=27;
            End;
          End;
    end;
  until R=27;
End.