Помогите с матрицей

[mannn]

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

Вот тут что-то сделал, но сумму последней строки не считает и не переставляет на место последнего элементы первой строки и на место максимально элемента

program abc;
const Mmass=10; Nmass=20;
var a:array[1..Mmass,1..Nmass] of integer;
i,j,sum,maxi,maxj,N,M:integer;
begin
write('Введите воличество строк:');
readln(M);
write('Введите воличество стобцов:');
readln(N);
writeln('Введите элементы массива А:');
Randomize;
For i:=1 to M do
begin
For j:=1 to N do
begin
write('A[',i,'][',j,']=');
readln(A[i][j]);
a[i,j]:=-90+Random(181);
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
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.

Кросспост

http://programmersforum.ru/showthread.php?t=285861

И не первый