Работа с матрицей(Free Pascal)

[vaLERkAVV]

Всем привет. Помогите написать программу
Надо найти сумму элементов всех четных строк в матрице mxn, распечатать результат в форматированном виде.

и еще программа: найти сумму элементов всех четных столбцов в матрице mxn, распечатать результат в форматированном виде

[Mad_Cat]

1)

var Mat:array[1..50,1..50] of Real;
i,j:integer;
m,n:integer;
s:Real;
begin
s:=0;
write('n=');
readln(n);
write('m=');
readln(m);
Randomize;
For i:=1 to m do
begin
For j:=1 to n do
begin
MaT[i,j]:=random(50)-25;
if i mod 2=0 then s:=s+MaT[i,j];
Write(Mat[i,j]:6:2);
end;
writeln;
end;
Writeln('сумма элементов всех четных строк в матрице=',s:6:2)
end.

2)

var Mat:array[1..50,1..50] of Real;
i,j:integer;
m,n:integer;
s:Real;
begin
s:=0;
write('n=');
readln(n);
write('m=');
readln(m);
Randomize;
For i:=1 to m do
begin
For j:=1 to n do
begin
MaT[i,j]:=random(50)-25;
if j mod 2=0 then s:=s+MaT[i,j];
Write(Mat[i,j]:6:2);
end;
writeln;
end;
Writeln('сумма элементов всех четных столбцов в матрице=',s:6:2)
end.