Замысел проекта: работа с идеями

PascalABC.Net
const
  m=8;
  n=11;
var
  a,b,c:array[1..m,1..n] of integer;
  i,j:integer;
begin
  Randomize;
  Writeln('Исходный массив A');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4)
    end;
    Writeln
  end;
  Writeln('Исходный массив B');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      b[i,j]:=Random(41)-20;
      Write(b[i,j]:4)
    end;
    Writeln
  end;
  Writeln('Результирующий массив С');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      c[i,j]:=a[i,j]+b[m-i+1,n-j+1];
      Write(c[i,j]:4)
    end;
    Writeln
  end
end.

Тестовое решение:
Исходный массив A
 -23 -14  -9   0 -13 -13  14  18   9  16  15
  -3  21  -4  24 -23  -9  19   9 -16 -14  23
  17 -25 -19 -25   8  -7  10 -23  -6 -23 -20
 -20  -3   9  12   6 -17   3 -24   5 -25 -11
  18 -21  -4 -20 -22  19   5 -15 -23  14  -2
 -20  -5 -10  -7 -14   4  -4 -18   7  -3  13
  -8  15  24 -10 -10  11  11 -20 -18   6  23
   2 -17 -23   5   2 -11  17  -3 -16  25  -8
Исходный массив B
   6  -6 -10  -3 -10  18  19   4  -3  -5  14
 -17  10   5 -15  11   2  16   0  18   5  14
 -14  15 -14  -7   6 -18 -15  -7 -13 -10  11
 -20 -14   5 -19  16  -1  11 -15   2 -13   3
   8 -18  -8  19  -4   1  -9   2   7 -18   9
  12 -12  -4  -9  17  -8  17  -1 -16 -13   4
  -7  10  -1   0   9   7  -3   9  12 -18   6
   3 -14 -17 -19   8   6   5 -18   6   3   8
Результирующий массив С
 -15 -11  -3 -18  -8  -7  22  -1  -8   2  18
   3   3   8  33 -26  -2  28   9 -17  -4  16
  21 -38 -35 -26  25 -15  27 -32 -10 -35  -8
 -11 -21  16  14  -3 -16  -1  -5  -3 -43  -3
  21 -34  -2 -35 -11  18  21 -34 -18   0 -22
  -9 -15 -23 -14 -29 -14   2 -25  -7  12  -1
   6  20  42 -10   6  13  22 -35 -13  16   6
  16 -22 -26   9  21   7   7  -6 -26  19  -2

//Это можно стереть. Если в N есть 0 то тогда программа выведет NO.
program z1;
var b,c,d,i,s,l:integer;   
a:string;
begin
read(a);
b:=length(a);
s:=StrToInt(a);
c:=0;
for i:=1 to b do 
for i:=1 to b do 
begin 
d:=StrToInt(a[i]); 
if d=0 then l:=1; 
end;
if l=0 then begin                 
for i:=1 to b do                     
for i:=1 to b do                     
begin                     
d:=StrToInt(a[i]);                     
if (s mod d)=0 then c:=c+1;                     
end;           
end           
else           
write('NO');if (l=0) and (c=b) then write('T');
if (l=0) and (c<>b) then write('P');
end.