Дан двумерный массив a, размером (nn)(либо квадратная матрица а). Отыскать сумму

program zz1;
const n = 4;
// задаем количество частей в массиве
var i, j, s1, s2, max, min:integer; // задаем переменные целого типа
b:array [1..n,1..n] of integer;
begin
for i:=1 to n do
for j:=1 to n do // получаем числа и записываем их в массив
b[i,j]:=random(101);
for i:=1 to n do // выводим полученный массив на экран
begin
for j:=1 to n do
write(b[i,j]:4);
writeln;
end;
max:=0;min:=100000;
for i:=1 to n do
for j:=1 to n do
begin
if i=j then if b[i,j] gt; max then begin max:=b[i,j];s1:=i+j;end;
if i=j then if b[i,j] lt; min then begin min:=b[i,j];s2:=i+j;end;
end;
writeln( сумма номеров наибольшего элемента = ,s1); //выводим ответ
writeln( сумма номеров малого элемента = ,s2);
end.