Менюшка

Uses CRT;
Const MaxMenuItem = 4;
Var Ret : Byte;
    V   : Char;
 
Function MainMenu(R_Select:Byte):Byte;
Type TMenu = record
         X,Y : Byte;
           S : String[20];
End;
 
Var Menu : Array [0..MaxMenuItem] Of TMenu;
    Run : Boolean; {ўлЎа** Їг*Єв ¬Ґ*о}
    Sel : Byte;
    TC, TB : Byte; {color}
 
    Procedure DrawMenu;
    Var I : Byte;
    Begin
         For I := 0 To MaxMenuItem Do
         Begin
              GotoXY(Menu[I].X, Menu[I].Y);
              Write(Menu[I].S);
         End;
    End;
 
    Procedure Select (I:Byte);
    Begin
         TextBackground(TC); TextColor(TB);
         GotoXY(Menu[I].X, Menu[I].Y);
         Write(Menu[I].S);
         TextBackground(TB); TextColor(TC);
    End;
 
    Procedure DeSelect (I:Byte);
    Begin
         TextBackground(TB); TextColor(TC);
         GotoXY(Menu[I].X, Menu[I].Y);
         Write(Menu[I].S);
    End;
 
 Begin
     ClrScr;
 
     If V='118' Then
        Begin
             Menu[0].S := 'item 0'; Menu[0].X := 20; Menu[0].Y :=  5;
             Menu[1].S := 'item 1'; Menu[1].X := 20; Menu[1].Y :=  6;
             Menu[2].S := 'item 2'; Menu[2].X := 20; Menu[2].Y :=  7;
             Menu[3].S := 'item 3'; Menu[3].X := 20; Menu[3].Y :=  8;
             Menu[4].S := ' exit '; Menu[4].X := 20; Menu[4].Y :=  9;
        End Else
            Menu[0].S := 'item 0'; Menu[0].X := 10; Menu[0].Y :=  5;
            Menu[1].S := 'item 1'; Menu[1].X := 20; Menu[1].Y :=  5;
            Menu[2].S := 'item 2'; Menu[2].X := 30; Menu[2].Y :=  5;
            Menu[3].S := 'item 3'; Menu[3].X := 40; Menu[3].Y :=  5;
            Menu[4].S := ' exit '; Menu[4].X := 50; Menu[4].Y :=  5;
 
     TC := TextAttr mod 16;
     TB := TextAttr div 16;
 
     DrawMenu;
     Sel := R_Select;
     Select(Sel);
 
     Run := False;
     While Not Run Do Begin
           Case ReadKey Of
                #13 : Run := True;
                #27 : Begin
                           Run := True;
                           Sel := MaxMenuItem;
                      End;
 
                #0 : Case ReadKey Of
                           #72 : Begin
                                      DeSelect(Sel);
                                      If Sel = 0
                                      Then Sel := MaxMenuItem
                                      Else Sel := Sel - 1;
                                      Select(Sel);
                                 End;
                           #80 : Begin
                                      DeSelect(Sel);
                                      If Sel = MaxMenuItem
                                      Then Sel := 0
                                      Else Sel := Sel + 1;
                                      Select(Sel);
                                 End;
                           #75 : Begin
                                      DeSelect(Sel);
                                      If Sel = 0
                                      Then Sel := MaxMenuItem
                                      Else Sel := Sel - 1;
                                      Select(Sel);
                                 End;
                           #77 : Begin
                                      DeSelect(Sel);
                                      If Sel = MaxMenuItem
                                      Then Sel := 0
                                      Else Sel := Sel + 1;
                                      Select(Sel);
                                 End;
                      End;
           End;
     End;
     MainMenu := Sel;
     TextBackground(TB);
     TextColor(TC);
     ClrScr;
End;
 
Begin
    V:=readkey;
    ClrScr;
     TextBackground(Blue);
     TextColor(LightGreen);
 
     Ret := 0;
     Repeat
          Ret := MainMenu(Ret);
          If ret<MaxMenuItem then
                  Begin
                       WriteLn('‚лЎа** Їг*Єв: ', Ret);
                       WriteLn('... **¦¬Ё Є«*ўЁиг Enter ...');
                       ReadLn;
                  End Else
                  Begin
                       WriteLn('‚л室 Ё§ Їа®Ја*¬¬л');
                       WriteLn('... **¦¬Ё Є«*ўЁиг Enter ...');
                       ReadLn;
                  End;
     Until Ret = MaxMenuItem;
     ClrScr;
End.

uses dos,crt;
type
    produkciya=record
                     shifr,ostk,prhd:byte;
                     name:string[20]
               end;
    rashod=record
                    shifr,rash:byte
           end;
    silka=^zveno;
    zveno=record
                p1,p2:silka;
                inf:produkciya;
                inf2:rashod
          end;
const
     clf=0;
     cl=15;
     clt=4;
     cle=14;
     gm:array [1..4] of string[21]=('    Uchet tovara    ','       Rashod       ','   Vivod vedomosti  ','     Vihod     ');
     pm:array [7..9] of string[17]=('    Prosmotr     ','    Korrektirovka','    Sozdanie     ');
     krm:array [8..10] of string[14]=(' Dobavlenie ',' Izmenenie  ',' Udalenie   ');
     prv:array [1..2] of string[3]=('Net','Da');
var
   i,x,j,y,sh,n,vb:byte;
   vih,v,tt:Boolean;
   c:char;
   p:produkciya;
   p2:rashod;
   f:file of produkciya;
   f2:file of rashod;
   pb,pe,pt,pb1,pe1:silka;
 
 
 
 procedure hide_cursor(z:byte);
 var
      regs: registers;
   begin
        with regs do
             begin
                  ah:=1;
                  ch:=z;
                  intr($10,regs)
             end
   end;
   procedure vivod_vihod(q:byte);
   begin
        textcolor(cl);
        gotoxy(25,11);
        write('??????????????????????????????????');
        gotoxy(25,12);
        if q=1 then
           write('?  Vi deystvitelno hotite viyti? ?')
        else
            write('?           Vi uvereni?          ?');
        gotoxy(25,13);
        write('?????????????????????????????????');
        gotoxy(25,14);
        write('?       Net      ?       Da      ?');
        gotoxy(25,15);
        write('??????????????????????????????????');
        gotoxy(33,14);
        textcolor(clt);
        write('Net');
        x:=33;
        j:=1
   end;
   procedure fonpr(cv:byte);
   begin
        gotoxy(x,14);
        textcolor(cv);
        write(prv[j])
   end;
   procedure left_pr;
   begin
        fonpr(cl);
        if x=33 then
           j:=2
 
  else
            j:=j-1;
        if x=33 then
           x:=50
        else
            x:=x-17;
        fonpr(clt)
   end;
   procedure right_pr;
   begin
        fonpr(cl);
        if x=50 then
           j:=1
        else
            j:=j+1;
        if x=50 then
           x:=33
        else
            x:=x+17;
        fonpr(clt)
   end;
   procedure vibor_pr;
   begin
        c:=readkey;
        while c<>#13 do
              begin
                   if c=#0 then
                      begin
                           c:=readkey;
                           case c of
                                #75:left_pr;
                                #77:right_pr
                           end
                      end
                   else;
                   c:=readkey
              end
   end;
   procedure vihod;
   begin
        vivod_vihod(1);
        vibor_pr;
        if j=2 then
           vih:=j=2
 
  else
   end;
   procedure vivod_gm;
   begin
        TextBackground(clf);
        textcolor(cl);
        clrscr;
        gotoxy(34,1);
        writeln('GLAVNOE MENU');
        write('ЙННННННННННННННННННННЛННННННННННННННННННННЛННННННННННННННННННННЛННННННННННННННН"');
        write('є', gm[1],          'є', gm[2],          'є',gm[3],           'є',gm[4],      'є');
        write('ИННННННННННННННННННННКННННННННННННННННННННКННННННННННННННННННННКНННННННННННННННј');
        gotoxy(2,25);
        write('ENTER- vibor');
        Textcolor(clt);
        x:=2;
        j:=1;
        gotoxy(2,3);
        write(gm[1])
   end;
   procedure vivod_tprm(q:byte);
   begin
            clrscr;
        textcolor(cl);
        gotoxy(29,1);
        case vb of
             1:writeln('   SOZDANIE DOCUMENTA');
             2:begin
                    writeln('   PROSMOTR DOCUMENTA');
                    gotoxy(10,25);
                    write('ESC - vihod')
               end;
             3:begin
                    writeln('DOBOVLENIE ZAPISEY V DOCUMENT');
                    gotoxy(1,25);
                    write('ENTER-prodoljenie vvoda   ');
                    write('ESC-vihod bez sohraneniya    ');
                    write('F2-sohranenie i vihod')
               end;
 
 
4:begin
                    writeln('  IZMENENIE DOCUMENTA');
                    gotoxy(1,25);
                    write('ENTER-prodoljenie vvoda   ');
                    write('ESC-vihod bez sohraneniya    ');
                    write('F2-sohranenie i vihod')
               end
        end;
        gotoxy(1,2);
        writeln('         ЙНННННННННННННННННННЛНННННННННННННННННННЛННННННННННННННН"');
        writeln('         є    Naimenivanie   є    Ostatok na     є    Prihod     є');
        writeln('         є       tovara      є  nachalo mesyaca  є    tovara     є');
        writeln('         МНННННННННННННННННННОНННННННННННННННННННОННННННННННННННН№');
        for i:=1 to q do
            writeln('         є                   є                   є               є');
         write('         ИНННННННННННННННННННКНННННННННННННННННННКНННННННННННННННј')
   end;
   procedure dialog_okno(s:string);
   begin
            textcolor(cl);
        gotoxy(29,10);
        write('ЙННННННННННННННННННННННН"');
        gotoxy(29,11);
        write('є                       є');
        gotoxy(29,12);
        write('є  ',s,  '  є');
        gotoxy(29,13);
        write('є                       є');
        gotoxy(29,14);
        write('ИНННННННННННННННННННННННј');
        readkey
   end;
   procedure sozdanie;
   begin
        rewrite(f);
        sh:=0;
        y:=6;
        while c<>#60 do
 
     begin
                   if c=#13 then
                      begin
                           if y=6 then
                              begin
                                   vb:=1;
                                   vivod_tprm(18);
                                   gotoxy(10,25);
                                   write('ENTER-Prodoljenie vvoda');
                                   gotoxy(46,25);
                                   write('F2-Sohranenie i vihod')
                              end
                           else;
                           hide_cursor($f);
                           sh:=sh+1;
                           p.shifr:=sh;
                           gotoxy(12,y);
                           readln(p.name);
                           gotoxy(32,y);
                           readln(p.ostk);
                           gotoxy(52,y);
                           readln(p.prhd);
                           write(f,p);
                           if y=23 then
                              y:=6
                           else
                               y:=y+1
                      end
                   else;
                   hide_cursor($20);
                   gotoxy(12,y);
                   c:=readkey
              end;
        dialog_okno(' Document sozdan...');
        close(f);
        v:=true
   end;
   procedure vivod_tf2;
   begin
      case vb of
           1:begin
                writeln('                         DOBOVLNIE ZAPISEY V DOCUMEN RASHODA');
                gotoxy(1,25);
 
     write('ENTER-prodoljenie vvoda   ');
                write('ESC-vihod bez sohraneniya    ');
                write('F2-sohranenie i vihod')
           end;
         2:begin
                writeln('                              IZMENENIE DOCUMENTA');
                gotoxy(1,25);
                write('ENTER-prodoljenie vvoda   ');
                write('ESC-vihod bez sohraneniya    ');
                write('F2-sohranenie i vihod')
           end;
         3:begin
                writeln('                          SOZDANIE DOCUMENTA RASHODA');
                gotoxy(5,25);
                write('ENTER-Prodoljenie vvoda');
                gotoxy(54,25);
                write('F2-Sohranenie i vihod')
           end;
         4:writeln('                                PROSMOTR DOCUMENTA')
      end;
      gotoxy(1,2);
      writeln('    ЙНННННННННННННННННННЛНННННННННННННННННННЛНННННННННННННННЛНННННННННННН"');
      writeln('    є    Naimenivanie   є    Ostatok na     є    Prihod     є   Rashod   є');
      writeln('    є       tovara      є  nachalo mesyaca  є    tovara     є   tovara   є');
      writeln('    МНННННННННННННННННННОНННННННННННННННННННОНННННННННННННННОНННННННННННН№');
      for i:=1 to 18 do
      writeln('    є                   є                   є               є            є');
        write('    ИНННННННННННННННННННКНННННННННННННННННННКНННННННННННННННКННННННННННННј')
   end;
   procedure ustan_d_u;
   var
      k:byte;
   begin
        k:=1;
        if sh>23 then
           begin
                pe:=pb;
                while k<>18 do
 
           begin
                           pe:=pe^.p2;
                           k:=k+1
                      end;
                sh:=23
           end
        else
   end;
   procedure spisok2;
   begin
            reset(f2);
        reset(f);
        new(pb);
        read(f,pb^.inf);
        read(f2,pb^.inf2);
        pb^.p1:=nil;
        pt:=pb;
        while not eof(f) do
              begin
                   new(pe);
                   read(f,pe^.inf);
                   read(f2,pe^.inf2);
                   pt^.p2:=pe;
                   pe^.p1:=pt;
                   pt:=pe
              end;
        pe^.p2:=nil;
        sh:=filesize(f)+5;
        ustan_d_u;
        close(f);
        close(f2)
   end;
   procedure spisok;
   begin
        reset(f);
        new(pb);
        read(f,pb^.inf);
        pb^.p1:=nil;
        pt:=pb;
        while not eof(f) do
              begin
                   new(pe);
                   read(f,pe^.inf);
                   pt^.p2:=pe;
 
                   pe^.p1:=pt;
                   pt:=pe
              end;
        pe^.p2:=nil;
        sh:=filesize(f)+5;
        ustan_d_u;
        close(f)
   end;
   procedure vivod_dtprm(w:byte);
   begin
        pt:=pb;
        y:=6;
        clrscr;
        textcolor(cl);
        vivod_tprm(18);
        while pt<>pe^.p2 do
              begin
                   gotoxy(12,y);
                   write(pt^.inf.name);
                   gotoxy(32,y);
                   write(pt^.inf.ostk);
                   gotoxy(52,y);
                   write(pt^.inf.prhd);
                   y:=y+1;
                   pt:=pt^.p2
              end;
        if w=1 then
           begin
                textcolor(clt);
                gotoxy(12,6);
                write(pb^.inf.name);
                gotoxy(32,6);
                write(pb^.inf.ostk);
                gotoxy(52,6);
                write(pb^.inf.prhd)
            end
        else
            begin
                textcolor(clt);
                gotoxy(12,23);
                write(pe^.inf.name);
                gotoxy(32,23);
                write(pe^.inf.ostk);
                gotoxy(52,23);
 
       write(pe^.inf.prhd)
            end
   end;
   procedure vivod_df2(w:byte);
     begin
    pt:=pb;
    y:=6;
    clrscr;
    textcolor(cl);
    vivod_tf2;
    while pt<>pe^.p2 do
        begin
        gotoxy(8,y);
        write(pt^.inf.name);
        gotoxy(28,y);
        write(pt^.inf.ostk);
        gotoxy(48,y);
        write(pt^.inf.prhd);
        gotoxy(64,y);
        write(pt^.inf2.rash);
        y:=y+1;
        pt:=pt^.p2
      end;
    if w=1 then
        begin
        textcolor(clt);
        gotoxy(8,6);
        write(pb^.inf.name);
        gotoxy(28,6);
        write(pb^.inf.ostk);
        gotoxy(48,6);
        write(pb^.inf.prhd);
        gotoxy(64,6);
        write(pb^.inf2.rash);
      end
    else
      begin
            textcolor(clt);
        gotoxy(8,23);
        write(pe^.inf.name);
        gotoxy(28,23);
        write(pe^.inf.ostk);
        gotoxy(48,23);
        write(pe^.inf.prhd);
 
         gotoxy(64,23);
        write(pe^.inf2.rash);
      end
   end;
   procedure vivod_tv;
   begin
        writeln('                                 VIVOD VEDOMOSTI');
        write('ЙННННННННННННННННННЛНННННННННННННННННННЛННННННННННЛННННННННННЛННННННННННННННННН"');
        write('є   Naimenivanie   є    Ostatok na     є  Prihod  є  Rashod  є   Ostatok na    є');
        write('є      tovara      є  nachalo mesyaca  є  tovara  є  tovara  є  konec mesyaca  є');
        write('МННННННННННННННННННОНННННННННННННННННННОННННННННННОННННННННННОННННННННННННННННН№');
        for i:=1 to 18 do
        write('є                  є                   є          є          є                 є');
          write('ИННННННННННННННННННКНННННННННННННННННННКННННННННННКННННННННННКНННННННННННННННННј');
        write('ESC-vihod')
   end;
   procedure vivod_dtv(w:byte);
     begin
    pt:=pb;
    y:=6;
    clrscr;
    textcolor(cl);
    vivod_tv;
    while pt<>pe^.p2 do
        begin
        gotoxy(3,y);
        write(pt^.inf.name);
        gotoxy(23,y);
        write(pt^.inf.ostk);
        gotoxy(43,y);
        write(pt^.inf.prhd);
        gotoxy(54,y);
        write(pt^.inf2.rash);
        gotoxy(66,y);
        if pt^.inf.ostk+pt^.inf.prhd>=pt^.inf2.rash then
           write((pt^.inf.ostk+pt^.inf.prhd)-pt^.inf2.rash)
 
         else
            begin
                 Textcolor(cle+blink);
                 write('ERROR');
                 Textcolor(cl)
            end;
        y:=y+1;
        pt:=pt^.p2
      end;
    if w=1 then
        begin
        textcolor(clt);
        gotoxy(3,6);
        write(pb^.inf.name);
        gotoxy(23,6);
        write(pb^.inf.ostk);
        gotoxy(43,6);
        write(pb^.inf.prhd);
        gotoxy(54,6);
        write(pb^.inf2.rash);
        gotoxy(66,6);
        if pb^.inf.ostk+pb^.inf.prhd>=pb^.inf2.rash then
           write((pb^.inf.ostk+pb^.inf.prhd)-pb^.inf2.rash)
        else
            begin
                 Textcolor(cle+blink);
                 write('ERROR');
                 Textcolor(cl);
            end;
      end
    else
      begin
            textcolor(clt);
        gotoxy(3,23);
        write(pe^.inf.name);
        gotoxy(23,23);
        write(pe^.inf.ostk);
        gotoxy(43,23);
        write(pe^.inf.prhd);
        gotoxy(54,23);
        write(pe^.inf2.rash);
        gotoxy(66,23);
        if pe^.inf.ostk+pe^.inf.prhd>=pe^.inf2.rash then
           write((pe^.inf.ostk+pe^.inf.prhd)-pe^.inf2.rash)
 
        else
            begin
                 Textcolor(cle+blink);
                 write('ERROR');
                 Textcolor(cl);
            end;
      end
   end;
   procedure fontprm(cv,l:byte);
   begin
            textcolor(cv);
            case l of
          1:begin
              gotoxy(12,y);
                  write(pt^.inf.name);
                  gotoxy(32,y);
                  write(pt^.inf.ostk);
                  gotoxy(52,y);
                  write(pt^.inf.prhd)
            end;
          2:begin
              gotoxy(8,y);
                  write(pt^.inf.name);
                  gotoxy(28,y);
                  write(pt^.inf.ostk);
                  gotoxy(48,y);
                  write(pt^.inf.prhd);
              gotoxy(64,y);
              write(pt^.inf2.rash)
            end;
          3:begin
              gotoxy(3,y);
              write(pt^.inf.name);
              gotoxy(23,y);
              write(pt^.inf.ostk);
              gotoxy(43,y);
              write(pt^.inf.prhd);
              gotoxy(54,y);
              write(pt^.inf2.rash);
              gotoxy(66,y);
              if pt^.inf.ostk+pt^.inf.prhd>=pt^.inf2.rash then
                 write((pt^.inf.ostk+pt^.inf.prhd)-pt^.inf2.rash)
              else
                  begin
 
                       Textcolor(cle+blink);
                       write('ERROR');
                       Textcolor(cl);
                  end
            end
       end
   end;
   procedure up_prm(l:byte);
   begin
        fontprm(cl,l);
        if y=6 then
        else
            begin
                             y:=y-1;
                 pt:=pt^.p1;
            end;
        fontprm(clt,l)
   end;
   procedure dawn_prm(l:byte);
   begin
        fontprm(cl,l);
        if y=sh then
        else
            begin
                 y:=y+1;
                 pt:=pt^.p2;
            end;
        fontprm(clt,l)
   end;
   procedure skrol_up(l:byte);
   begin
        pb:=pb^.p1;
        pt:=pt^.p1;
        pe:=pe^.p1;
        case l of
            1:vivod_dtprm(1);
            2:vivod_df2(1);
          3:vivod_dtv(1)
        end;
        y:=6;
        pt:=pb
   end;
   procedure skrol_dawn(l:byte);
   begin
 
        pb:=pb^.p2;
        pt:=pt^.p2;
        pe:=pe^.p2;
        case l of
            1:vivod_dtprm(2);
          2:vivod_df2(2);
          3:vivod_dtv(2)
        end;
        y:=23;
        pt:=pe;
   end;
   procedure vibor_tprm(q,q1:byte);
   var
      t:Boolean;
   begin
        pt:=pb;
        y:=6;
        c:=readkey;
        t:=true;
        while ((c<>#27) and ((q<>2) or (c<>#13))) and t do
              begin
                   if c=#0 then
                      begin
                           c:=readkey;
                           case c of
                                #72:if y=6 then
                                       if pb^.p1<>nil then
                                          skrol_up(q1)
                                       else
                                    else
                                        up_prm(q1);
                                 #80:if y=sh then
                                       if pe^.p2<>nil then
                                          skrol_dawn(q1)
                                       else
                                    else
                                        dawn_prm(q1)
                             end
                       end
                    else;
                    if (q=2) and (c=#60) then
                       t:=not(c=#60)
                    else
                        c:=readkey
 
          end
   end;
   procedure soz;
   begin
      hide_cursor($f);
      textcolor(cl);
        gotoxy(40,y-1);
      write('ЙНННННННННННННННННН"');
      gotoxy(40,y);
      write('є  Vvedite rashod  є');
      gotoxy(40,y+1);
      write('є                  є');
      gotoxy(40,y+2);
      write('ИННННННННННННННННННј');
      gotoxy(48,y+1);
      readln(pt^.inf2.rash);
      hide_cursor($20);
   end;
   procedure sohr;
     begin
    reset(f2);
        truncate(f2);
    while pb1<>pe1^.p2 do
            begin
          write(f2,pb1^.inf2);
          pb1:=pb1^.p2
        end;
    v:=true
   end;
   procedure izm_dob;
   begin
        spisok2;
        pb1:=pb;
        pe1:=pt;
        repeat
              vivod_df2(1);
              vibor_tprm(2,2);
              case c of
          #13:soz;
                #60:sohr;
                #27:if vb<>3 then
                       v:=true
                    else
              end
 
        until v;
        if c=#60 then
             case vb of
                 1:dialog_okno('Zapisi dobavleni...');
                 2:dialog_okno('Document izmenen...');
                 3:dialog_okno(' Document sozdan...')
             end
        else
   end;
   procedure sozdanief2;
   begin
        rewrite(f2);
      reset(f);
      n:=filesize(f);
      i:=1;
      while i<>n+1 do
        begin
            p2.rash:=0;
          p2.shifr:=i;
          write(f2,p2);
          i:=i+1
        end;
      close(f2);
      close(f);
      vb:=3;
      izm_dob
   end;
   procedure prosmotr2;
   begin
        spisok2;
        vb:=4;
        vivod_df2(1);
        textcolor(cl);
        gotoxy(5,25);
        write('ESC - vihod');
        vibor_tprm(1,2);
        v:=true
   end;
   procedure prosmotr;
   begin
        spisok;
        vb:=2;
        vivod_dtprm(1);
        vibor_tprm(1,1);
 
        v:=true
   end;
   procedure dobavlenie;
   begin
        vb:=3;
        vivod_tprm(18);
        new(pt);
        pb:=pt;
        y:=6;
        while (c<>#60) and (c<>#27) do
              begin
                   hide_cursor($f);
                   gotoxy(12,y);
                   readln(pt^.inf.name);
                   gotoxy(32,y);
                   readln(pt^.inf.ostk);
                   gotoxy(52,y);
                   readln(pt^.inf.prhd);
                   new(pe);
                   pt^.p2:=pe;
                   pt:=pe;
                   if y=23 then
                      y:=6
                   else
                       y:=y+1;
                   hide_cursor($20);
                   c:=readkey;
                    if c=#0 then
                       c:=readkey
                    else
              end;
        if c=#60 then
           begin
                reset(f);
                seek(f,filesize(f));
                while pb<>pe do
                   begin
                      write(f,pb^.inf);
                      pb:=pb^.p2
                   end;
                dialog_okno('Zapisi dobavleni...')
           end
        else;
        v:=true
 
   end;
   procedure foniz(cv:byte);
   begin
        textcolor(cv);
        gotoxy(x,y);
        case j of
             1:write(pt^.inf.name);
             2:write(pt^.inf.ostk);
             3:write(pt^.inf.prhd)
        end
   end;
   procedure left2;
   begin
        foniz(cl);
        if x=12 then
           j:=3
        else
            j:=j-1;
        if x=12 then
           x:=52
        else
            x:=x-20;
        foniz(clt)
   end;
   procedure right2;
   begin
        foniz(cl);
        if x=52 then
           j:=1
        else
            j:=j+1;
        if x=52 then
           x:=12
        else
            x:=x+20;
        foniz(clt)
   end;
   procedure vibor_izm;
   begin
        c:=readkey;
        while c<>#13 do
              begin
                   if c=#0 then
                      begin
 
                            c:=readkey;
                           case c of
                                #75:left2;
                                #77:right2
                           end
                      end
                   else;
                   if c=#27 then
                      begin
                           tt:=c=#27;
                           c:=#13
                      end
                   else
                       c:=readkey
              end
   end;
   procedure izm;
   begin
        clrscr;
        tt:=false;
        vivod_tprm(1);
        gotoxy(32,y);
        write(pt^.inf.ostk);
        gotoxy(52,y);
        write(pt^.inf.prhd);
        textcolor(clt);
        gotoxy(12,y);
        write(pt^.inf.name);
        vibor_izm;
        hide_cursor($f);
        if not tt then
        case j of
             1:begin
                gotoxy(12,y);
                write('                 ');
                gotoxy(12,y);
                readln(pt^.inf.name)
               end;
             2:begin
                gotoxy(32,y);
                write('             ');
                gotoxy(32,y);
                readln(pt^.inf.ostk)
               end;
 
             3:begin
                gotoxy(52,y);
                write('           ');
                gotoxy(52,y);
                readln(pt^.inf.prhd)
               end
        end
        else;
        hide_cursor($20);
   end;
   procedure sohran;
   begin
        reset(f);
        truncate(f);
        while pb1<>pe1^.p2 do
              begin
                   write(f,pb1^.inf);
                   pb1:=pb1^.p2
              end;
        close(f);
        dialog_okno(' Zapisi izmeneni...');
        v:=true
   end;
   procedure izmenenie;
   begin
        spisok;
        pb1:=pb;
        pe1:=pt;
        vb:=4;
        repeat
              vivod_dtprm(1);
              vibor_tprm(2,1);
              y:=6;
              x:=12;
              j:=1;
              case c of
                   #13:izm;
                   #60:sohran;
                   #27:v:=true
              end
        until v
   end;
   procedure vedomost;
   begin
 
        clrscr;
        spisok2;
        vivod_dtv(1);
        vibor_tprm(1,3);
   end;
   function prov:Boolean;
   begin
        vivod_vihod(2);
        vibor_pr;
        if j=2 then
           prov:=j=2
        else
            prov:=j=2;
        vivod_gm
   end;
   procedure fonv(cv,x2,n3:byte);
   begin
        textcolor(cv);
        gotoxy(x2,y);
        if (x2 in [15..30,46..60]) and (n3=1) then
            write(krm[y])
        else
            if not(x2 in [15..30]) and (n3=2) then
               write(krm[y])
            else
            write(pm[y])
   end;
   procedure up(y1,y2,x,n2:byte);
   begin
        fonv(cl,x,n2);
        if y=y1 then
           y:=y2
        else
            y:=y-1;
        fonv(clt,x,n2)
   end;
   procedure dawn(y1,y2,x,n2:byte);
   begin
        fonv(cl,x,n2);
        if y=y2 then
           y:=y1
        else
            y:=y+1;
        fonv(clt,x,n2)
 
   end;
   procedure vibor_pm(y3,y4,x1,n1:byte);
   begin
        c:=readkey;
        while c<>#13 do
              begin
                   if c=#0 then
                      begin
                           c:=readkey;
                           case c of
                                #72:up(y3,y4,x1,n1);
                                #80:dawn(y3,y4,x1,n1)
                           end
                      end
                   else;
                   if c=#27 then
                      begin
                           v:=c=#27;
                           c:=#13
                      end
                   else
                       c:=readkey
              end
   end;
   procedure vivod_krm(x5:byte);
   begin
        gotoxy(x5-1,8);
        write(chr(26));
        textcolor(cl);
        gotoxy(x5,7);
        writeln('ЙНННННННННННН"');
        for i:=8 to 10 do
            begin
                 gotoxy(x5,i);
                 write('є',krm[i], 'є')
            end;
        gotoxy(x5,11);
        write('ИННННННННННННј');
        textcolor(clt);
        y:=8;
        gotoxy(x5+1,y);
        write(krm[y]);
   end;
   procedure obrabotka_krm(n1:byte);
 
      begin
      if v then
      else
          case y of
          8:if n1=1 then
               dobavlenie
            else
                begin
                     vb:=1;
                     izm_dob
                end;
          9:if n1=1 then
               izmenenie
            else
                begin
                     vb:=2;
                     izm_dob
                end;
          10:{udalenie}
        end
   end;
   procedure krmm(x6,n1:byte);
   begin
        repeat
          vivod_krm(x6);
          vibor_pm(8,10,x6+1,n1);
            obrabotka_krm(n1)
      until v;
      vivod_gm;
      v:=false
   end;
   procedure vivod_pm(xx:byte);
   begin
        gotoxy(xx+11,5);
        write(chr(25));
        textcolor(cl);
        gotoxy(xx,6);
        writeln('ЙНННННННННННННННННННН"');
        for i:=7 to 9 do
            begin
                 gotoxy(xx,i);
                 write('є',pm[i],       '   є')
            end;
        gotoxy(xx,i+1);
 
        writeln('ИННННННННННННННННННННј');
        textcolor(clt);
        y:=7;
        gotoxy(xx+1,y);
        write(pm[y]);
   end;
   procedure obrabotka_pm(x7,nn:byte);
   begin
        if v then
        else
            case y of
                 7:if nn=1 then
                      prosmotr
                   else
                       prosmotr2;
                 8:begin
         krmm(x7,nn);
                      if nn=2 then
                        begin
                        gotoxy(23,3);
                          write(gm[2]);
                          textcolor(cl);
                          gotoxy(2,3);
                          write(gm[1])
                        end
                      else
                    end;
                 9:if prov then
                      if nn=1 then
                         sozdanie
                      else
                          sozdanief2;
                   else
            end;
   end;
   procedure pmm(xx1,n:byte);
   begin
            v:=false;
        repeat
              vivod_pm(xx1);
              vibor_pm(7,9,xx1+1,n);
              obrabotka_pm(xx1+24,n)
        until v
   end;
 
  procedure fon(cv:byte);
   begin
        gotoxy(x,3);
        textcolor(cv);
        write(gm[j])
   end;
   procedure left;
   begin
        fon(cl);
        if x=2 then
           j:=4
        else
            j:=j-1;
        if x=2 then
           x:=65
        else
            x:=x-21;
        fon(clt)
   end;
   procedure right;
   begin
        fon(cl);
        if x=65 then
           j:=1
        else
            j:=j+1;
        if x=65 then
           x:=2
        else
            x:=x+21;
        fon(clt)
   end;
   procedure vibor_gm;
   begin
        c:=readkey;
        while c<>#13 do
              begin
                   if c=#0 then
                      begin
                           c:=readkey;
                           case c of
                                #75:left;
                                #77:right
                           end
 
                     end
                   else;
                   c:=readkey
              end
   end;
   procedure obrabotka_gm;
   begin
        case j of
             1:pmm(1,1);
             2:pmm(22,2);
             3:vedomost;
             4:vihod
         end;
   end;
   procedure gmm;
   begin
        vih:=false;
        repeat
              vivod_gm;
              vibor_gm;
              obrabotka_gm
        until vih
   end;
begin
     assign(f,'f_Ucheta.vas');
     assign(f2,'f_rashod.vas');
     hide_cursor($20);
     gmm
end.