Заполнить массив 10 х10 целыми положительными, вычислите сумму элементов строки, в которой расположен максимальный элемент и сумму вывести на экран

const n=3;

var

a: array[1 ... n, 1 ... n] of word;

i, j, max, MaxI, S: longint; {i и j - переменные для цикла, max - максимальный элемент, S - сумма, MaxI - номер строки, в которой расположен максимальный элемент}

begin

S:=0;

max:=0;

for i:=1 to n do

for j:=1 to n do

begin

writeln ('Введите a[', i,', ', j, ']') ;

readln (a[i, j]) ;

if a[i, j]>max then

begin

max:=a[i, j];

MaxI:=i;

end;

end; //for

for j:=1 to n do s:=s+a[MaxI, j];

writeln ('Сумма элементов строки, в которой расположен максимальный элемент равна ', S) ;

end.