type
TInt=integer;
MyType=real;
Matrix=array[1..1] of MyType;
PMatrix=^Matrix;      {cтроки}
MyArray=array[1..1] of PMatrix;
PMyArray=^MyArray;        {массив указателей на строки}
{-------------------------------------------------}
Function Summa( a:PMyArray; c,d,n,m: TInt): MyType;
{вх.параметр a-динамический двумерный массив, c,m-счетчики по столбцам, n,d- по строкам, функция считает сумму элементов, лежащих не выше и не правее и не ниже и не левее данного}
var i,j: TInt;
s: MyType;
begin
s:=0;
for i:=1 to d do
 for j:=1 to c do
  s:=s+a^[i]^[j];
for i:=d to n do
 for j:=c to m do
  s:=s+a^[i]^[j];
summa:=s-2*a^[d]^[c];
end;
{------------------------------}
Function Tabl (a:PMyArray; n,m: TInt): Boolean;
var b: Matrix; {дополнительный массив для хранения новых элементов}
c,d,e,i,j: TInt;
begin
if(m<0) or (n<0) or (a=nil) then
Tabl:=false
else
begin
 for c:=1 to m do
  begin
   for d:=1 to n do
    b[m*(d-1)+c]:=summa(a,c,d,n,m);
    end;
 begin
  for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     for e:=1 to m*n do
    a^[i]^[j]:=b[e];
    end;
   end;
end;
end;