Unit modul;

interface

uses Crt;

var
   c: char;



{type}
Type users = record
     id     : integer;
     name   : string[20];
     rating : integer;

end;

Type Q      = record
     id             : integer;
     name           : string[50];
     v1,v2,v3,v4    : string[20];
     v11,v22,v33,v44: string[1];
end;
{/type}


{~}

Procedure Privet;
Procedure Menu_users;
Procedure Menu2_users;
Procedure Add_user;
Procedure Del_user;
Procedure Dir_user;
Procedure Author;
Procedure Menu2_quest;
Procedure Menu_quest;
Procedure Add_quest;
Procedure Del_quest;
Procedure Test_menu;
Procedure Test_menu2;
Procedure Test;

{~}

implementation


Procedure Privet;
Begin
clrscr;
writeln('   ÜÜÛÛÛÜÜ                                                           ÜÜÛÛÛÜÜ   ');
writeln(' Üßß  ßßÛÛÛÛÜÜÜ                                                 ÜÜÜÛÛÛÛßß  ßßÜ ');
writeln('ßÜ  ²ÛÜ  ßÛÛÛÛÛÛÛÛÛÜÜÜÜÜÜß ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ßÜÜÜÜÜÜÛÛÛÛÛÛÛÛÛß  ÜÛ²Üß');
writeln('   ÜÛÛÛÛÜÜ  ßßßßÛÛßßßß Ü   ³°±²Û  ’¥áâã¢ ­­ï   °±²Û ³   Ü ßßßßÛÛßßßß  ÜÜÛÛÛÛÜ  ');
writeln('ÜÛÛÛÛÛÛÛÛÜÛÛÛÛÛÜÜÜÜÛÛÛß    ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ     ßÛÛÛÜÜÜÜÛÛÛÛÛÜÛÛÛÛÛÛ ');
writeln(' ²ÛÛÛÛ²ÛÛÛÛÛ²²²²ßßß                                        þßßß²Û²²ÛÛÛÛÛÛÛÛÛÛ² ');
writeln(' ÝÛÛÛÛÛÛÛÛ²²ßß Ý                                                ÝßßÛÛÛÛÛÛÛÛÛ²Þ ');
writeln('  ÛÛÛÛÛÛÛ²ß                                                          ß²ÛÛÛÛÛ²² ');
writeln(' ÝÞÛÛÛÛ²²Þ    1. ®ç â¨ ’¥áâã¢ ­­ï                                    ÝÛÛÛÛÛ²Ý ');
writeln('   ²ÛÛÛ² þ    2. „®¡ ¢¨â¨ ç¨ ‚¨¤ «¨â¨ Š®à¨áâã¢ ç                        ²ÛÛ²²  ');
writeln('   ÞÛÛ²Þ      3. „®¡ ¢¨â¨ ç¨ ‚¨¤ «¨â¨ ‡ ¯¨â ­­ï                        Ý ÝÛÛ²Ý ');
writeln('   ÞÛÛ²       4. ¥à¥£«ï¤ ¥§ã«ìâ âi¢                                     ÞÛ²  ');
writeln('    ²ÛÝ       5. €¢â®à(á)                                                 ÞÛ²  ');
writeln('    ²ßß       6. ‚¨åi¤                                                    ßß²  ');
writeln('   ÜÜÛÛÛÜÜ                                                            ÜÜÛÛÛÜÜ  ');
writeln(' Üßß  ßß²ÛÛÛÜÜÜ                                                 ÜÜÜÛÛÛÛßß  ßßÜ ');
writeln('ßÜ  °    ß²ÛÛÛÛÛÛ²²ÜÜÜÜÜÜ                             ÜÜÜÜÜÜÛÛÛÛ²²ÛÛÛßÞ   °  Üß');
writeln('           ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜÜÜÜÜÜÜÜÜÜÜÜÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß           ');
writeln('             ÝßßßÛÛÛÛÛÛÛÛÛÛÛÛÛßßßßßßßßßßßßßßßßßßßÛÛÛÛÛÛÛÛÛÛÛÛ²²ßß     Þ        ');
writeln('                    ßßßßß                        ßßßßß                         ');
writeln;

End;

Procedure menu2_users;
Begin
ClrScr;
writeln(' ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß');
writeln(' ÛÛÕÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¸ÛÛ');
writeln(' ÛÛ³  1  ³             „®¡ ¢¨â¨ ­®¢®£® Š®à¨áâã¢ ç                           ³±Û');
writeln(' ÛÛÔÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¾±Û');
writeln(' ÛÛÛ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±Û');
writeln(' ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß');
writeln(' ÛÛÕÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¸ÛÛ');
writeln(' ÛÛ³  2  ³             ‚¨¤ «¨â¨ iá­ãîç®£® Š®à¨áâã¢ ç                        ³±Û');
writeln(' ÛÛÔÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¾±Û');
writeln(' ÛÛÛ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±Û');
writeln(' ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß');
writeln(' ÛÛÕÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¸ÛÛ');
writeln(' ÛÛ³  3  ³        <<<   ®¢¥à­ãâ¨áï ¢ ¯®¯¥à¥¤­¥ ¬¥­î                        ³±Û');
writeln(' ÛÛÔÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¾±Û');
writeln(' ÛÛÛ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±Û');
writeln(' ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß');

end;


Procedure Menu_users;
Begin
menu2_users;
repeat

  c:= readkey;
  case c of
         '1' :add_user;
         '2' :del_user;
	 '3' : ;
  end;

until c = '3';
end;



Procedure Add_user;
var
f1,f2 : file of users;
a,b   : users;
i     : integer;

Begin
clrscr;



Assign(f1,'users.dat');
Assign(f2,'users.old');


 reset(f1);
 rewrite(f2);

{from users.dat to users.old coping}
while not Eof(f1) do
begin
     read(f1,a);
     write(f2,a);
end;

 Close(f1);
 Close(f2);
{/1}


{2}

Assign(f1,'users.dat');
Assign(f2,'users.old');

 rewrite(f1);
 reset(f2);

writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ „®¡ ¢«¥­­ï ®¢®£® Š®à¨áâã¢ ç  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');

while not Eof(f2) do
begin
     read(f2,a);

    write(f1,a);
end;
  writeln(' ‚¢¥¤iâì  Š®à¨áâã¢ ç   ');
  writeln('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  readln(a.name); {„®¡ ¢«¥­­ï Š®à¨áâã¢ ç }

  a.id:=a.id+1;
  a.rating:=0;

  write(f1,a); {rec main to file}

Close(f1);
Close(f2);
writeln('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');

writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³ °±²Û  Š®à¨áâã¢ ç „®¡ ¢«¥­¨©!  â¨á­iâì ª« ¢ièã    Enter             ³');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');

readkey;
clrscr;
menu2_users;
End;





Procedure Del_user;
var
f1,f2 : file of users;
a,b   : users;
i     : integer;
kkk,kk:integer;
v_st,v_st2  :string;
Begin
ClrScr;

{1}
 Assign(f1,'users.dat');
 Assign(f2,'users.old');


 reset(f1);
 rewrite(f2);


writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ‚¨¤ «¥­­ï Š®à¨áâã¢ çi¢ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
   writeln;


writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÑÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÑÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³°     ID    ³      I¬ï Š®à¨áâã¢ ç            ³       ‘¥à¥¤­i© ¡ «     °³');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÏÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÏÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');



while not Eof(f1) do
begin

     read(f1,a);

      {‚¨ài¢­î¥¬® àï¤ª¨}
       str(a.id,v_st);
      kk:=length(v_st);
      for kkk:=kk to 10 do v_st:=' '+v_st;
      v_st:=v_st+'  ° ';


      kk:=length(a.name);
      for kkk:=kk to 35 do a.name:=a.name+' ';
      a.name:=a.name+'° ';

      str(a.rating,v_st2);
      kk:=length(v_st2);
      for kkk:=kk to 7 do v_st2:='   '+v_st2;
     


    writeln(v_st,a.name,v_st2); {Dir}

      {```}
     

     write(f2,a);
end;


 Close(f1);
 Close(f2);
{/1}


{2}
Assign(f1,'users.dat');
Assign(f2,'users.old');

 rewrite(f1);
 reset(f2);

   writeln('ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
   writeln('“¢ £ : Ÿªé® id ­¥ ¡ã¤¥ á¯i¢¯ ¤ â¨, â® Š®à¨áâã¢ ç ­¥ ¡ã¤¥ ‚¨¤ «¥­¨©!');
   
 Writeln('Ÿª®£® Š®à¨áâã¢ ç  ¢¨¤ «¨â¨? (ID)');
 Readln(b.id); {DELTE!}

{ –¨ª« ¤«ï ã¤ «¥­¨ï ª®à¨áâã¢ ç  }
while not Eof(f2) do
begin
     read(f2,a);

     if a.id<>b.id then
     begin
            write(f1,a);
     end;

end;
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');

writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³ °±²Û  Ž¯¥à æiï ‡¤i©á­¥­  !   â¨á­iâì ª« ¢ièã     Enter             ³');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');

readkey;
clrscr;
menu2_users;
end;






Procedure Dir_user;
var
f1 : file of users;
a  : users;
kkk,kk:integer;
v_st,v_st2  :string;
Begin
Clrscr;


writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ¥à¥£«ï¤ Š®à¨áâã¢ çi¢ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
   writeln;


writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÑÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÑÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³°     ID    ³      I¬ï Š®à¨áâã¢ ç            ³       ‘¥à¥¤­i© ¡ «     °³');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÏÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÏÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');


Assign(f1,'users.dat');
reset(f1);

while not Eof(f1) do
begin

     read(f1,a);

      {‚¨ài¢­î¥¬® àï¤ª¨}
       str(a.id,v_st);
      kk:=length(v_st);
      for kkk:=kk to 10 do v_st:=' '+v_st;
      v_st:=v_st+'  ° ';


      kk:=length(a.name);
      for kkk:=kk to 35 do a.name:=a.name+' ';
      a.name:=a.name+'° ';

      str(a.rating,v_st2);
      kk:=length(v_st2);
      for kkk:=kk to 7 do v_st2:='   '+v_st2;
     


    writeln(v_st,a.name,v_st2); {Dir}

      {```}
     

     
end;


 Close(f1);

   writeln('ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');






writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³ °±²Û  Ž¯¥à æiï ‡¤i©á­¥­  !   â¨á­iâì ª« ¢ièã     Enter             ³');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');

readkey;
clrscr;
menu2_users;
end;



Procedure Author;
Begin
Clrscr;

writeln('                                                      ÜÛÛÛÛÛÛÜÛ² ÜÛ²ß  ');
writeln('                                               ÜÜÜÜÜÜÜÛÛ²²²²²²ÛÛ² Û²²  ');
writeln('                                    ÜÜÜÜÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²²ÛÛÛÛÛÛÛÛ²²Ü');  
writeln('                       ÜÜÜÜÛÛÛÛÛÛÛÛÛ²²²²²²²²²ÛÛÛ²ÛÛÛÛÛ²²²²ÛÛÛÛß  ßÛÛ²²ÜßÛ²'); 
writeln('                    ÜÜÛÛÛÛÛÛÛ²²²²²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²ÛÛÛÛ²²²ÛÛÜ    ÜÛÛÛÛ²²Ü'); 
writeln('             ÜÜÛÛÛÛÛÛ²²²²ÛÛÛÛÛÛÛÛßßßßßß          ßßÛÛÛÛÛ²²²ÛÛÛÛÛÛÛÛÛ²²²Ûß²ß');
writeln('     ßÛÛÛÛÛÛÛÛÛÛÛ²²²²ÛÛÛßßß                         ßßÛÛÛ²²²ÛÛÛÛÛÛ²ÛÛß   ²Ü');
writeln('     ²ÛÛÛ²²ÛÛÛÛÛÛÛÛ ÜÛÛ²²Ü                             ÛÛÛÛÛÛÛÛÛÛßß      ²Û');
writeln('     ß²  ßÛ²²²²Ûßß    ßÛÛÛßß                                             ²ß');
writeln('    Ü²ßÜ              ÜÜÜÜÛÛß                                           ÜßÛ');
writeln('   Û²ß ß²Ü             ÛÛÛ²ÝÞÛßßÛÜ Û²ßßß ²Ûßß²Û                     Ü²ß ß²Û ');
writeln(' ÜÛ²ß   ß²Û            ÞÛÛ²Ý ÛÝ ÛÛ ÛÛ ß ÞÛÝ ÞÛÝ                    Û²ß   ß²ÛÜ');
writeln(' Û²²     ²²             ÛÛßÛ ßß ßß ßß   ßßßßßß                    Û²²     ²²²');
writeln(' ßÛ²Ü   Ü²Û            ÜÛÛßßß                                       Û²Ü   Ü²²ß');
writeln('   Û²Ü Ü²ß           ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿                        ß²Ü Ü²²');
writeln('    ß²Üß             ³ à ªâ¨âç­  P®¡®â  #2   ³                           ßÜ²ß');
writeln('     Üß              ³ i«®£® „¬¨âà  žài©®¢¨ç ³                            ßÜ');
writeln('   ÜÛß               ³ Œ¨à®­i¢áìª  äi«iï ‘“…Œ ³                           Üß²ÜÜ');
writeln(' ÜÛ²ß ßÜ             ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ                    ÜÜ  ÜÛß ß²ÛÜ');
writeln(' ß²²Ü  ßÛÜ                                                ÜÛÛÛÛÛÛÜÛ² ÜÛ²ß  Ü²²ß');
writeln('  Û²Û  Ü²Û   ÚÄÄÄÄÄ¿                               ÜÜÜÜÜÜÜÛÛ²²²²²²ÛÛ² Û²²   ²²Û');
writeln('   ß²  Û²    ³STORM³              ÜÜÜÜÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²²ÛÛÛÛÛÛÛÛ²²Ü Û²Ü  Ûßß');
writeln('    ßÛ²ß     ÀÄÄÄÄÄÙ  ÜÜÜÜÛÛÛÛÛÛÛÛÛ²²²²²²²²²ÛÛÛ²ÛÛÛÛÛ²²²²ÛÛÛÛß  ßÛÛ²²ÜßÛ² Ûß');
writeln('   ÛÛ            ÜÜÛÛÛÛÛÛÛ²²²²²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²ÛÛÛÛ²²²ÛÛÜ    ÜÛÛÛÛ²²Ü Û ');
writeln('    Û²²²Ü   ÜÜÛÛÛÛÛÛ²²²²ÛÛÛÛÛÛÛÛßßßßßß          ßßÛÛÛÛÛ²²²ÛÛÛÛÛÛÛÛÛ²²²Ûß²ß');
writeln('     ßÛÛÛÛÛÛÛÛÛÛÛ²²²²ÛÛÛßßß                         ßßÛÛÛ²²²ÛÛÛÛÛÛ²ÛÛß   ');
writeln('     ²ÛÛÛ²²ÛÛÛÛÛÛÛÛßß                                  ÛÛÛÛÛÛÛÛÛÛß');
writeln('     ß²  ßÛ²²²²Ûßß');
readkey;
end;                                                                     
                                                                         

Procedure menu2_quest;
Begin
ClrScr;
writeln(' ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß');
writeln(' ÛÛÕÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¸ÛÛ');
writeln(' ÛÛ³  1  ³             „®¤ â¨ ®¢¥ ‡ ¯¨â ­­ï                                ³±Û');
writeln(' ÛÛÔÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¾±Û');
writeln(' ÛÛÛ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±Û');
writeln(' ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß');
writeln(' ÛÛÕÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¸ÛÛ');
writeln(' ÛÛ³  2  ³             ‚¨¤ «¨â¨ ‡ ¯¨â ­­ï                                   ³±Û');
writeln(' ÛÛÔÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¾±Û');
writeln(' ÛÛÛ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±Û');
writeln(' ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß');
writeln(' ÛÛÕÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¸ÛÛ');
writeln(' ÛÛ³  3  ³        <<<   ®¢¥à­ãâ¨áï ¢ ¯®¯¥à¥¤­¥ ¬¥­î                        ³±Û');
writeln(' ÛÛÔÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¾±Û');
writeln(' ÛÛÛ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±Û');
writeln(' ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß');

end;


Procedure Menu_quest;
Begin
menu2_quest;
repeat

  c:= readkey;
  case c of
         '1' :Add_quest;
         '2' :del_quest;
	 '3' : ;
  end;

until c = '3';
end;

Procedure Add_quest;
var
f1,f2 : file of Q;
a,b   : Q;
i,o   : integer;

Begin

ClrScr;
Assign(f1,'q.dat');
Assign(f2,'q.old');


 reset(f1);
 rewrite(f2);

{from questions.dat to questions.old coping}
while not Eof(f1) do
begin
     read(f1,a);

     write(f2,a);
end;

 Close(f1);
 Close(f2);
{/1}


{2}

Assign(f1,'q.dat');
Assign(f2,'q.old');

 rewrite(f1);
 reset(f2);

writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ „®¡ ¢«¥­­ï ®¢®£® ‡ ¯¨â ­­ï ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');

while not Eof(f2) do
begin
     read(f2,a);

    write(f1,a);
end;
  writeln(' ‚¢¥¤iâì  ®¢¥ ‡ ¯¨ â­­ï?  ');
  writeln('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  readln(a.name); {„®¡ ¢«¥­­ï ‡ ¯¨â ­­ï}

  writeln('±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±');

  writeln('‚¢¥¤iâì 1© ‚ ài ­â ‚i¤¯®¢i¤i?');
  readln(a.v1);
  writeln('±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±');

   writeln('‚¢¥¤iâì 2© ‚ ài ­â ‚i¤¯®¢i¤i?');
  readln(a.v2);
  writeln('±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±');

   writeln('‚¢¥¤iâì 3© ‚ ài ­â ‚i¤¯®¢i¤i?');
  readln(a.v3);
  writeln('±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±');

  writeln('‚¢¥¤iâì 4© ‚ ài ­â ‚i¤¯®¢i¤i?');
  readln(a.v4);
  writeln('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
{  writeln('±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±');}


  writeln('“¢ £ : ¯à ¢¥«ì­¨© ¢ ài ­â ¢i¤¯®¢i¤i ¢¢®¤¨âìáï æ¨äà®î ïª  ¢i¤¯®¢i¤ ó ¢ ài ­âã.');
  writeln(' ¯à¨ª« ¤: Ÿªé® æ¥ 3© ¢ ài ­â ¢ià­¨©, â® ¢¢¥¤i¤ì æ¨äàã: 3');
  writeln('±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±');
  writeln('‚¢¥¤iâì à ¢¥«ì­¨© ‚ ài ­â ‚i¤¯®¢i¤i? ');
  readln(o);
  {***}
  if o=1 then a.v11:='T' else a.v11:='F';
  if o=2 then a.v22:='T' else a.v22:='F';
  if o=3 then a.v33:='T' else a.v33:='F';
  if o=4 then a.v44:='T' else a.v44:='F';
  {***}
  

  a.id:=a.id+1;


  write(f1,a); {rec main to file}

Close(f1);
Close(f2);
writeln('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');

writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³ °±²Û  ‡ ¯¨â ­­ï „®¡ ¢«¥­®!  â¨á­iâì ª« ¢ièã    Enter               ³');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');

readkey;
clrscr;
menu2_quest;
end;




Procedure Del_quest;
var
f1,f2 : file of Q;
a,b   : Q;
i     : integer;
kkk,kk:integer;
v_st :string;


Begin
ClrScr;

{1}
 Assign(f1,'q.dat');
 Assign(f2,'q.old');


 reset(f1);
 rewrite(f2);


writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ‚¨¤ «¥­­ï ‡ ¯¨ â­­ï ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
   writeln;


writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÑÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³°     ID    ³             ‡ ¯¨â ­­ï                             °³');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÏÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');



while not Eof(f1) do
begin

     read(f1,a);

      {‚¨ài¢­î¥¬® àï¤ª¨}
       str(a.id,v_st);
      kk:=length(v_st);
      for kkk:=kk to 10 do v_st:=' '+v_st;
      v_st:=v_st+'  ° ';


      kk:=length(a.name);
      for kkk:=kk to 35 do a.name:=a.name+' ';
      a.name:=a.name+' ';
      

    writeln(v_st,a.name); {Dir}

      {```}
     

     write(f2,a);
end;


 Close(f1);
 Close(f2);
{/1}


{2}
Assign(f1,'q.dat');
Assign(f2,'q.old');

 rewrite(f1);
 reset(f2);

   writeln('ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
   writeln('“¢ £ : Ÿªé® id ­¥ ¡ã¤¥ á¯i¢¯ ¤ â¨, â® ‡ ¯¨â ­­ï ­¥ ¡ã¤¥ ‚¨¤ «¥­­®!');
   
 Writeln('Ÿª¥ ‡ ¯¨â ­­ï ¢¨¤ «¨â¨? (ID)');
 Readln(b.id); {DELTE!}

{ –¨ª« ¤«ï ã¤ «¥­¨ï ‡ ¯¨â ­­ï }
while not Eof(f2) do
begin
     read(f2,a);

     if a.id<>b.id then
     begin
            write(f1,a);
     end;

end;
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');

writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³ °±²Û  Ž¯¥à æiï ‡¤i©á­¥­  !   â¨á­iâì ª« ¢ièã     Enter             ³');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');

readkey;
clrscr;
menu2_quest;
end;



Procedure Test_menu;
Begin
test_menu2;
repeat

  c:= readkey;
  case c of
         '1' :Test;
         '2' :;
  end;

until c = '2';
end;





Procedure Test_menu2;
Begin
ClrScr;
writeln(' ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß');
writeln(' ÛÛÕÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¸ÛÛ');
writeln(' ÛÛ³  1  ³             ®ç â¨ ’¥áâã¢ ­­ï                                    ³±Û');
writeln(' ÛÛÔÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¾±Û');
writeln(' ÛÛÛ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±Û');
writeln(' ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß');
writeln(' ÛÛÕÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¸ÛÛ');
writeln(' ÛÛ³  2  ³          <<< ®¢¥à­ãâ¨áï ¢ ®¯¥à¥¤­¥ ¬¥­î                        ³±Û');
writeln(' ÛÛÔÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¾±Û');
writeln(' ÛÛÛ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±Û');
writeln(' ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß');
end;




Procedure Test;
var
f1,f2,f4,f5 : file of users;
a,aa        : users;
kkk,kk      : integer;
v_st,v_st2  : string;
i,ii        : integer;
f3          : file of Q;
b           : Q;
vopros      : string;
kor         : string[20];

Begin
ClrScr;

writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ   ’¥áâ   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');

{user}
writeln;
writeln('ßßßßßßßßßßßßßßßßßßßßßßßßßß ’ ¡«¨æï Š®à¨áâã¢ çi¢ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÑÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÑÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³°     ID    ³      I¬ï Š®à¨áâã¢ ç            ³       ‘¥à¥¤­i© ¡ «     °³');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÏÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÏÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');


Assign(f1,'users.dat');
reset(f1);

while not Eof(f1) do
begin

     read(f1,a);

      {‚¨ài¢­î¥¬® àï¤ª¨}
       str(a.id,v_st);
      kk:=length(v_st);
      for kkk:=kk to 10 do v_st:=' '+v_st;
      v_st:=v_st+'  ° ';


      kk:=length(a.name);
      for kkk:=kk to 35 do a.name:=a.name+'    ';
      a.name:=a.name+'° ';

      str(a.rating,v_st2);
      kk:=length(v_st2);
      for kkk:=kk to 7 do v_st2:='   '+v_st2;



    writeln(v_st,a.name,v_st2); {Dir}

      {```}



end;




   writeln('ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');

Writeln('‚¨¡¥àiâì ã¤ì « áª  Š®à¨áâã¢ ç   ? (¨¬ï)');
writeln('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
readln(kor);

Close(f1);

Assign(f1,'users.dat');
reset(f1);

while not Eof(f1) do
begin

     read(f1,a);

 if kor=a.name then
begin
{***********************************}
 


  a.rating:=0;

 Assign(f3,'q.dat');
 reset(f3);

  while not eof(f3) do
  begin
  read(f3,b);



 clrscr;
 writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ   ’¥áâ   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
 writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
 writeln('‘¯à ¢ª : ');
 writeln('1. ’¥áâ áª« ¤ óâìáï § ‡ ¯¨â ­­ï i 4à¨ ¢ ài â  ¢i¤¯®¢i¤i ­  ­ì®£®');
 writeln('2. ‡  ¯à ¢¨«ì­ã ¢i¤¯®¢i¤ì ­  ®¤­¥ i§ ‡ ¯¨â ­­ì ‚¨ ®âà¨¬ãóâ¥ 5 ¡ «i¢');
 writeln('3. ‚¢i¤¯®¢i¤ì ¢¢®¤¨âìáï æ¨äà®î ïª  ¢i¤¯®¢i¤ ó ¢ ài ­âã ¢i¤¯®¢i¤i');
 writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');  


      kk:=length(b.name);
      for kkk:=kk to 35 do b.name:=b.name+' ';
      b.name:=b.name;

 writeln('                                ‡ ¯¨â ­­ï                                ');
writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³ °±²Û ',b.name,'             ');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');

writeln('‚ àia­â¨ ¢i¤¯®¢i¤¥©:');  
{writeln(b.name);}

  
      kk:=length(b.v1);
      for kkk:=kk to 20 do b.v1:=b.v1+' ';
      b.v1:=b.v1;

writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³ 1 ² ',b.v1,'                            ');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');



      kk:=length(b.v2);
      for kkk:=kk to 20 do b.v2:=b.v2+' ';
      b.v2:=b.v2;

writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³ 2 ² ',b.v2,'                            ');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');


      kk:=length(b.v3);
      for kkk:=kk to 20 do b.v3:=b.v3+' ';
      b.v3:=b.v3;

writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³ 3 ² ',b.v3,'                            ');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');


      kk:=length(b.v4);
      for kkk:=kk to 20 do b.v4:=b.v4+' ';
      b.v3:=b.v4;

writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³ 4 ² ',b.v3,'                            ');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');



  

 readln(ii);
  
  
  if (ii=1) and (b.v11='T') then a.rating:=a.rating+5;
  if (ii=2) and (b.v22='T') then a.rating:=a.rating+5;
  if (ii=3) and (b.v33='T') then a.rating:=a.rating+5;
  if (ii=4) and (b.v44='T') then a.rating:=a.rating+5;
 end;

 Close(f3);

{rec raring usera to test.dat}   


Assign(f4,'test.dat');
rewrite(f4);


aa.id:=a.id;
aa.name:=a.name;
aa.rating:=a.rating;




write(f4,aa);

Close(f4);

{/rec rating usera to test.dat}
end;

end; 
Close(f1);

{***********************************}


{1 backup}

 Assign(f1,'users.dat');
 Assign(f2,'users.old');


 reset(f1);
 rewrite(f2);


while not Eof(f1) do
begin

     read(f1,a);
     write(f2,a);
end;


 Close(f1);
 Close(f2);

{/1 backup}


{2 delete }
Assign(f1,'users.dat');
Assign(f2,'users.old');

 rewrite(f1);
 reset(f2);

   

{ –¨ª« ¤«ï ã¤ «¥­¨ï ª®à¨áâã¢ ç  }
while not Eof(f2) do
begin
     read(f2,a);

     if a.id<>aa.id then
     begin
            write(f1,a);
     end;

end;


 Close(f1);
 Close(f2);



Assign(f1,'users.dat');
Assign(f2,'users.old');


 reset(f1);
 rewrite(f2);



{from users.dat to users.old coping}
while not Eof(f1) do
begin
     read(f1,a);
     write(f2,a);
end;

 Close(f1);
 Close(f2);
{////}


{ADD}

Assign(f1,'users.dat');
Assign(f2,'users.old');

 rewrite(f1);
 reset(f2);


while not Eof(f2) do
begin
     read(f2,a);

    write(f1,a);
end;
  
  a.id:=aa.id;
  a.name:=aa.name;
  a.rating:=aa.rating;

  write(f1,a); {rec main to file}


Close(f1);
Close(f2);








{/user}
clrscr;
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');

writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
writeln('³ °±²Û    ’¥áâ ‡ ªi­ç¥­® !    â¨á­iâì ª« ¢ièã     Enter              ³');
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');



Readkey;
Test_menu2;
End;

end.