Программа на паскале как написать ?

Не вопрос) Вот код программы:
program Neylon;
var
i,j,m,n:integer;
max,sum:real;
a:array[1..20,1..20]of real;
begin
writeln('Введите через пробел размер матрицы m и n');
readln(m,n);
for i:=1 to m do
for j:=1 to n do
begin
writeln('Введите A[',i,',',j,'] ');
readln(a[i,j]);
end;
sum:=0;
for i:=1 to m do
begin
max:=a[i,1];
for j:=1 to n do
if a[i,j] > max then
max:=a[i,j];
sum:=sum+max;
end;
writeln('Сумма максимальных элементов = ',sum);
end.

А вот пример работы:
Введите через пробел размер матрицы m и n
5 3
Введите A[1,1] 1
Введите A[1,2] 2
Введите A[1,3] 3

Введите A[2,1] 4
Введите A[2,2] 2
Введите A[2,3] 5

Введите A[3,1] 2
Введите A[3,2] 5
Введите A[3,3] 7

Введите A[4,1] 6
Введите A[4,2] 3
Введите A[4,3] 9

Введите A[5,1] 0
Введите A[5,2] -3
Введите A[5,3] 2
Сумма максимальных элементов = 26

Сделаю за 200 WMR

Зайди сюда!! http://www.realcoding.net/article/view/732

program l;
uses crt;
var
a:array[1..3,1..4] of integer;
i,j,max,summa:integer;
begin
clrscr;
for i:=1 to 3 do
for j:=1 to 4 do begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
Writeln('Vvedennaja matrica:');
for i:=1 to 3 do
for j:=1 to 4 do
Writeln('a[',i,',',j,']=',a[i,j]);
{Najdem summy max elementov v stroke'}
summa:=0;
for i:=1 to 3 do begin
max:=a[i,1];
for j:=1 to 4 do
if a[i,j]>max then
max:=a[i,j];
summa:=summa+max;
end;
Writeln;
Writeln('Summa=',summa);
readln
end.