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

program zz1;

var i, j, x1, k, max: integer;

m: array[1 ... 10,1 ... 10] of integer;

begin

for i:=1 to 10 do begin

for j:=1 to 10 do begin

m[i, j]:=random (101); / / заполнение матрицы случайными числами и вывод на экран

write (m[i, j]:4);

end;

writeln;

end;

max:=0;

for i:=1 to 10 do

for j:=1 to 10 do

if m[i, j]>max then begin max:=m[i, j]; x1:=i; end; / / нахождение номера строки с максимальным элементом

for j:=1 to 10 do

k:=k + m[x1, j]; / / вычисляем сумму элементов строки

write (' сумма элементов массива ', x1,' строки с максимальным = ', k); / /вывод ответа

end.