Дана квадратная матрица из вещественных чисел А порядка N (1<=N<=10). Получить матрицу В того же размера, элемент которой b(i,j) равен сумме элементов матрицы А, кроме элементов расположенных в строке i и столбце j. Количество операций сложения должно быть не более 5N^2 — Pascal(Паскаль)

var
    a,b:array[1..11,1..11] of integer;
    i,n,j,s:integer;
 
 
function sumofstr(ii,jj:integer):integer;
var
    i,j,s1:integer;
begin
   s1:=0;
   for i:=1 to n do
      for j:=1 to n do
            s1:=s1+a[ii,j]+a[i,jj];
   sumofstr:=s1-a[ii,jj];
end;
 
 
begin
    randomize;
    readln(n);
    writeln('Chto bilo: ');
    for i:=1 to n do
    begin
        for j:=1 to n do
        begin
            a[i,j]:=random(10);
            s:=s+a[i,j];
            write(a[i,j]:3);
        end;
        writeln;
    end;
    writeln;
    writeln;
    writeln('Chto Poluchilos: ');
    for i:=1 to n do
    begin
        for j:=1 to n do
        begin
            b[i,j]:=s-sumofstr(i,j);
            write(b[i,j]:3);
        end;
        writeln;
    end;
    readln;
end.