program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,windows;
Var
Text,Text_1,Text_2,text_3,S:String;
Textmatr:Array[1..6,1..4] of Char;
i,j,k,kolsimvolov:integer;
key1:array[1..6] of Byte;
key2:array[1..4] of Byte;
p,t,m:Boolean;
Begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251)...