Матрица. Заменить элементы суммой элементов строки и столбца

Program Z12;
const n=3;m=3;
var i,j:integer;
    s,s1:integer;
    a: array [1..n,1..m] of integer;
 
begin 
{ввод матрицы}
 for i:=1 to 3 do begin
    for j:= 1 to 3 do
    read(a[i,j]);
    write(a[i,j],' ');
    writeln;
 end;
 {вывод на печать исходной матрицы}
 writeln('исходная матрица');
   for i:=1 to 3 do begin
    for j:= 1 to 3 do write(a[i,j],' ');
    writeln;
   end;
 {cумма элементов строк матрицы}
  for i:=1 to 3 do
   begin
   s:=0;
    for j:=1 to 3 do
    s:=s+a[i,j];
    writeln('Сумма в строке ',i,'=',s,' ');
  end;
 {cумма элементов столбцов матрицы}
  for j:=1 to 3 do
   begin
   s1:=0;
    for i:=1 to 3 do
    s1:=s1+a[i,j];
   writeln('Сумма в столбце ',j,'=',s1,' ');
  end;
 {замена элементов}
end.

Program Z12;
const n=3;m=3;
var i,j:integer;
    s,s1:integer;
    a: array [1..n,1..m] of integer;
    b: array [1..n,1..m] of integer;
    c: array [1..n,1..m] of integer;
 //основная прога
begin 
//ввод матрицы
 for i:=1 to n do begin
    for j:= 1 to m do begin
    read(a[i,j]);
    b[i,j]:=a[i,j];
 end; end;
 //вывод на экран исходной матрицы
  writeln('исходная матрица');
   for i:=1 to n do begin
    for j:= 1 to m do write(a[i,j],' ');
    writeln;
   end;
    //cумма в столбцах
    for j:=1 to m do
  begin
  S:=0;
  for i:=1 to n do
  S:=S+a[i,j];
  for i:=1 to n do begin a[i,j]:=s-a[i,j];
 end; end;
 //cумма в  строках
   for i:=1 to n do
  begin
  S1:=0;
  for j:=1 to m do
  S1:=S1+b[i,j];
  for j:=1 to m do begin b[i,j]:=s1-b[i,j];
 end; end;
   //общая сумма
   for i:=1 to n do
  begin
  for j:=1 to m do
  c[i,j]:=a[i,j]+b[i,j];
 end;
 //вывод на печать полученной матрицы
 writeln('полученная матрица');
   for i:=1 to n do begin
    for j:= 1 to m do write(c[i,j],' ');
    writeln;
   end;
end.