Исправить уже написанную программу

[Shiza321]

Есть прога но её надо доделать: 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);
p:=8.3;
for i:=1 to n do
p:=p+(1+cos(1-1/a[i,4]));
writeln('p = ',p);
A[maxi,5]:=max;
for I:=1 to 3 do
begin
for J:=1 to 5 do
write(A[i,j]:5:1,' ');
writeln;
end;
end.
Нужно подправить ту часть в которой ищется наибольший элемент чётных столбцов, потому что она работает непостоянно, т. е не всегда находит наибольший.

[Serebro]

Сообщение от Shiza321

Есть прога но её надо доделать: 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]; !!!! Здесь i=n+1 !!!!!
maxI:=i;
for I:=1 to n do
if max<A[i,2] then
begin
max:=A[I,2];
maxI:=i;
end;
writeln('Наибольший элемент чётных столбцов: ',max);
p:=8.3;
for i:=1 to n do
p:=p+(1+cos(1-1/a[i,4]));
writeln('p = ',p);
A[maxi,5]:=max;
for I:=1 to 3 do
begin
for J:=1 to 5 do
write(A[i,j]:5:1,' ');
writeln;
end;
end.
Нужно подправить ту часть в которой ищется наибольший элемент чётных столбцов, потому что она работает непостоянно, т. е не всегда находит наибольший.

max:=A[i,4];                                                                      !!!! Здесь i=n+1  !!!!!

max:=A[1,2];
maxI:=1;
 for I:=1 to n do
 for j:=2 to m do step 2    !   не помню как задать шаг.
  if max<A[i,j] then
  begin
   max:=A[I,j];
   maxI:=i;
  end;