найдите сумму наибольших значений элементов

дан двумерный массив. найдите сумму наибольших значений элементов его строк

const
   N = 10;
   M = 20;

var
   a: array [1..N, 1..M] of integer;
   i: integer;
   j: integer;
   sum: integer;
   max: integer;
begin
   {инициализируем массив случайными числами}
   for i:=1 to N do begin
      for j:=1 to M do begin
         a[i, j]:=random(100);
      end;
   end;
   
   {выведем его на экран}
   for i:=1 to N do begin
      for j:=1 to M do begin
         write(a[i, j]:3);
      end;
      writeln;
   end;
   writeln;
   
   sum:=0; {начальная инициализация суммы}
   write('max: ');
   for i:=1 to N do begin
      {находим максимальное значение в строке}
      max:=a[i, 1];
      for j:=2 to M do begin
         if a[i, j] > max then begin
            max:=a[i, j];
         end;
      end;
      write(max:3); {вывод на экран}
      sum:=sum+max; {накапливаем сумму}
   end;
   writeln;
   
   writeln('сумма максимальных элементов строк = ', sum);
end.

тут можно скачать отформатированную версию исходников