Разбить матрицу на квадраты размером 3×3. В центре каждого квадрата поместить сумму остальных его элементов

program Matrix_Sum_MxN_Centers;
 
const
  n = 3;
  m = 3;
 
var
  mat: Array[1..3*n, 1..3*m] of integer;
  sum, x, y: integer;
 
begin
  // Заполнение матрицы случайными числами
  for var j := 1 to 3*m do
  begin
    for var i := 1 to 3*n do
    begin
      mat[i, j] := random(100);
    end;
  end;
  // Выолнение основного задания
  for var j := 1 to m do
  begin
    for var i := 1 to n do
    begin
      sum := 0;
      x := i * 3 - 1;
      y := j * 3 - 1;
      sum += mat[x-1, y-1];
      sum += mat[x, y-1];
      sum += mat[x+1, y-1];
      sum += mat[x-1, y];
      sum += mat[x+1, y];
      sum += mat[x-1, y+1];
      sum += mat[x, y+1];
      sum += mat[x+1, y+1];
      mat[x, y] := sum;
    end;
  end;
  // Вывод матрицы
  for var j := 1 to 3*m do
  begin
    for var i := 1 to 3*n do
    begin
      Write(mat[i, j]: 5);
      if i mod 3 = 0 then Write('|')
    end;
    WriteLn();
    if j mod 3 = 0 then WriteLn('----+-----+----+----+-----+----+----+-----+----+');
  end;
end.

var a,b:array[1..15,1..15] of integer;
    n,m,i,j,i1,j1,s:integer;
begin
repeat
write('Введите n от 1 до 5 n=');
readln(n);
until n in [1..5];
repeat
write('Введите m от 1 до 5 m=');
readln(m);
until m in [1..5];
randomize;
for i:=1 to 3*n do
 begin
  for j:=1 to 3*m do
   begin
    a[i,j]:=1+random(9);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to n do
for j:=1 to m do
 begin
  s:=0;
  for i1:=3*(i-1)+1 to 3*i do
  for j1:=3*(j-1)+1 to 3*j do
  s:=s+a[i1,j1];
  b[i,j]:=s-a[3*(i-1)+2,3*(j-1)+2];
 end;
writeln;
for i:=1 to n do
 begin
  for j:=1 to m do
  write(b[i,j]:3);
  writeln;
 end;
end.

mat[i,j]:=random(100);

readln(mat[i,j]);

write('Введите размерность матрицы: ');
             readln(N, M);