Заменить значение элемента двумерного массива на сумму окружающих его элементов.

program z1;
Uses crt;{Подключение модуля экрана}
var
  a, b: array [1..100, 1..100] of integer;
  i, g, j, h, k, n: integer;
begin
  clrscr;{Очистка экрана}
  write('Vvedite razmernost n=');
  readln(n); {Вводится размерность квадратной матрицы}
  for i := 1 to n do
    for j := 1 to n do
      begin
        write('a[', i, ',', j, ']=');
        readln(a[i, j]);{Ввод массива}
      end;
  clrscr;{Очистка экрана}
  writeln('Ishodnaia matrica:');
  for i := 1 to n do
    begin
      for j := 1 to n do
        write(a[i, j]:n);{Печать начальной матрицы}
    writeln;
 
    end;
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          if i = 1 then 
            b[i, j] := b[i, j] + a[i + 1, j]{При i=1 суммируется элемент a[i+1,j]}
          else
            if i = n then
              b[i, j] := b[i, j] + a[i - 1, j]{При i=n суммируется элемент a[i-1,j]}
            else
              b[i, j] := b[i, j] + a[i + 1, j] + a[i - 1, j];{Иначе суммируются элементы a[i-1,1] и a[i+1,j]}
          if j = 1 then 
            b[i, j] := b[i, j] + a[i, j + 1] {При j=1 суммируется элемент a[i,j+1]}
          else
            if j = n then
              b[i, j] := b[i, j] + a[i, j - 1] {При j=n суммируется элемент a[i,j-1]}
            else
              b[i, j] := b[i, j] + a[i, j + 1] + a[i, j - 1]; {Иначе суммируются элементы a[i,j+1] и a[i,j-1]}
          if (i = 1) and (j = 1) then 
            b[i, j] := b[i, j] + a[i + 1, j + 1]{Если это элемент a[1,1] тогда к элементу массива b[i, j] суммируется элемент массива a[i + 1, j + 1]}
 
          else
            if (i = 1) and (j = n) then 
              b[i, j] := b[i, j] + a[i + 1, j - 1] {Если это элемент a[1,n] тогда к элементу массива b[i, j] суммируется элемент массива a[i + 1, j - 1]}
            else
              if (i = n) and (j = 1) then
                b[i, j] := b[i, j] + a[i - 1, j + 1] {Если это элемент a[n,1] тогда к элементу массива b[i, j] суммируется элемент массива a[i - 1, j + 1]}
              else
                if (i = n) and (j = n) then 
                  b[i, j] := b[i, j] + a[i - 1, j - 1] {Если это элемент a[n,n] тогда к элементу массива b[i, j] суммируется элемент массива a[i - 1, j - 1]}
                else
                  if i = 1 then
                    b[i, j] := b[i, j] + a[i + 1, j - 1] + a[i + 1, j + 1]{Если этот элемент находится в первом столбце то к b[i, j] суммируется элементы массива a[i + 1, j - 1] и a[i + 1, j + 1]}
                  else
                    if i = n then
                      b[i, j] := b[i, j] + a[i - 1, j - 1] + a[i - 1, j + 1]{Если этот элемент находится в последнем столбце то к b[i, j] суммируется элементы массива a[i - 1, j - 1] и a[i - 1, j + 1]}
                    else
                      if j = 1 then
                        b[i, j] := b[i, j] + a[i + 1, j + 1] + a[i - 1, j + 1]{Если этот элемент находится в первой строке то к b[i, j] суммируется элементы массива a[i + 1, j + 1] и a[i - 1, j + 1]}
 
 
                     else
                        if j = n then
                          b[i, j] := b[i, j] + a[i + 1, j - 1] + a[i - 1, j - 1] {Если этот элемент находится в первой строке то к b[i, j] суммируется элементы массива a[i + 1, j - 1] и a[i - 1, j - 1]}
                        else
                          b[i, j] := b[i, j] + a[i + 1, j + 1] + a[i + 1, j - 1] + a[i - 1, j + 1] + a[i - 1, j - 1];{Иначе если это не конечные элементы находящиеся на главной диоганали то к b[i, j] суммируются все элементы вокруг него}
        end;
    end;
  write('Vvedite parametr i=');
  readln(j);{Вводится столбец}
  write('Vvedite parametr j=');
  readln(i);{Вводится строка}
  writeln;
  g := b[i, j];{Переменной g присваивается искомая сумма}
  h := i;
  k := j;
  for i := 1 to n do
    for j := 1 to n do
      if (i = h) and (j = k) then
        a[i, j] := g;{Условие требуется для нахождения введеных параметров в массиве a[i,j] и замены обычного элемента на суммированный элемент}
  writeln('Polucinaia matrica:'); 
     
  for i := 1 to n do
    begin
      for j := 1 to n do
        write(a[i, j]:n);{Печать конечной матрицы}
      writeln;
    end;
  Readln;
end.