паскаль

[ilia1]

момогите решить задачу:

Дана матрица А(3,5).
Найти наибольший элемент среди элементов четных столбцов матрицы.
прога есть но она не правельная переправте пожалуйста:

program massiv;
uses Crt;
const
n=3;
m=5;
type
matrix = array[1..n,1..m] of real;
var
a : matrix;
I, J, maxI : integer;
p,k,max: real;
begin
writeln('Исходный массив A: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(51)-25;
write(a[i,j]:5:1,' ');
end;
writeln;
end;
max:=A[i,4];
maxI:=i;
for I:=1 to n do
if max<A[i,2] then
begin
max:=A[I,2];
maxI:=i;
end;
writeln('наибольший элемент четных столбцов: ',max);

[IT-man]

Стучи в аську.исправлю.дешево.