Рбят помогите с двумерным массивом, времени мало остаётся, дел много, прогу никак не успеваю

[mannn]

Дана матрица А размером M на N, M<=10, N<=20. Найти сумму последней строки матрицы. Если она > 0, записать это значение на место последнего элемента первой строки, иначе - на место максимального элемента матрицы. Полученный массив А распечатать.

[temaps]

Наверное тут все без дел сидят.
Покажи как ты нашёл сумму, и максимальный элемент матрицы

[newerow1989]

const m=10;
      n=20;
var a:array[1..m,1..n] of integer;
    i,j,sum,maxi,maxj:integer;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         a[i,j]:=-90+Random(181);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   Writeln;
   sum:=0;
   maxi:=0;
   maxj:=0;
   For j:=1 to n do
      sum:=sum+a[m,j];
   For i:=1 to m do
      For j:=1 to n do
         If a[maxi,maxj]<a[i,j] then
         begin
            maxi:=i;
            maxj:=j;
         end;
   Writeln('sum = ',sum,'; maxi = ',maxi,'; maxj = ',maxj);
   Writeln;
   If sum>0 then
      a[1,n]:=sum else
      a[maxi,maxj]:=sum;
   For i:=1 to m do
   begin
      For j:=1 to n do
         Write(a[i,j],'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

Сойдет?