program P;
uses crt;
var b:array [1..3,1..4] of integer;
    n:integer;
    m:integer;
    t:integer;
    min:integer;
    max:integer;
    k:integer;
    i:integer;
 begin
 t:=3;
 Clrscr;
 writeln ('Заполните 2-х мерный массив');
 for n:=1 to 3 do
 for m:=1 to 4 do
 begin
 write ('B(',n,',',m,')=');
 read (B[n,m]);
 end;
 write ('Заполненый массив:');
 for n:=1 to 3 do
 begin
 writeln;
 for m:=1 to 4 do
 write (B[n,m]:t);
 end;

max:=b[n,m];
t:=1;
for i:=1 to 4 do
if b[n,m]>max then
begin
max:=b[n,m];
t:=i;
end;
min:=b[n,m];
t:=1;
for i:=1 to 4 do
if b[n,m]<min then
begin
min:=b[n,m];
t:=i;
end;
writeln;
writeln ('Максимальный элемент последовательности равен',max);
writeln ('минимальный элемент последовательности равен',min);
writeln ('Для выхода нажмите любую клавишу!!! ');
repeat until keypressed;
end.