Задача из задачника А.Г. Юркин на Delphi

Не могу понять как эту задачу решить на делфи В массиве Х(m,n) каждый элемент (кроме граничных ) заменить суммой непосредственно примыкающих к нему элементов по вертикали горизонтали и диагонали поделитесь если у кого есть исходники задач этого задачника (на делфи) так как мне не только эту задачу надо решить БЛАГОДАРЮ ВСЕХ КТО ПОМОГ
1 ответ

procedure TForm1.Button1Click(Sender: TObject);
const
  m=9;
  n=9;
var
  X: array [0..m, 0..n] of integer;
  i, j, i1, j1: integer;
  t, sum: integer;
begin
  //Г§Г*ïîëГ*ГїГҐГ¬ Г¬Г*Г±Г±ГЁГў ñëó÷Г*Г©Г*ûìè öèôðГ*ìè
  for j:=0 to n do
  for i:=0 to m do
  begin
    X[i, j]:=random(100);
  end;
 
  //Г±Г*ìî âû÷èñëåГ*ГЁГҐ
  t:=X[0, 1];
  for j:=1 to n-1 do
  for i:=1 to m-1 do
  begin
 
    sum:=t;
    for j1:=j-1 to j+1 do
    for i1:=i-1 to i+1 do
    begin
      if ((j1<>j) and (i1<>i)) and ((j1<>j) and (i1<>i-1))then
      sum:=sum+X[i1, j1];
    end;
    t:=X[i, j];
    X[i, j]:=sum;
 
  end;
end;