PROCEDURE POISK;
Var  I, J : INTEGER;
      NVg : STRING;
Begin TextColor(White);
      WriteLn('‚¢¥¤¨â¥ 8-§­ ç­ë© ­®¬¥à ¢ £®­ : '); ReadLn(NVg);
      WriteLn('ÚÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
      WriteLn('³�®¥§¤³ ‚à¥¬ï ³ ‚ £®­# ³Œ áá ³� §¬¥âª ³         ‘â ­æ¨ï ­ §­ ç¥­¨ï            ³');
      WriteLn('ÆÄÄÄÄÄØÄÄÄÄÄÄÄØÄÄÄÄÄÄÄÄØÄÄÄÄÄØÄÄÄÄÄÄÄÄØÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĵ');
      For I:= 1 to Np Do
          For J:= 1 to Nv Do
              If Mas[i][j].VagT = NVg Then TABLE( i, j );
      WriteLn('ÀÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
      TextColor(GREEN);
      WriteLn; WriteLn('<Backspace> - ‚¥à­ãâìáï ¢ ¬¥­î');
      Repeat Until ReadKey = #8; MAINMENU;
End;