Для откладки чисел элементы массива сформировать с помощью генератора случайных чисел
program PascalGuru;
var A:array[1..50,1..50] of integer; {объявление переменных}
n,m,i,j,k,summa:integer;
begin
randomize;
write('N= '); readln(n); {ввод кол-ва строк}
write('M= '); readln(m); {ввод кол-ва столбцов}
for i:=1 to n do
for j:=1 to m do A[i,j]:=(-3)+random(9); {заполнение элементов матрицы}
for i:=1 to n do begin writeln;
for j:=1 to m do write (A[i,j]:8); end; { вывод матрицы на экран }
writeln;
writeln;
summa:=0; {изначально обнуляем сумму}
for i := 1 to n do {i это порядковый номер строки }
begin
k:=1; {k - это будущий максимальный эл-т}
for j := 2 to m do
if A[i,j]>A[i,k] then A[i,k]:=A[i,j]; {вычисляем MAX}
summa:=summa+A[i,k]; {MAX эл-т текущей строки прибавляем к сумме }
end;
writeln('Summa: ',summa); {вывод суммы на экран}
readln;
end.