[napster_X]

А помогите мне плиз!!! у меня прога написанна, только вот не могу грамотно составить условие....
вот текст:

Program laba3;
Var m:array[1..3,1..5] of integer;
        max,u:real;
        i,j,jmax,P,t:integer;
begin
        writeln('введите матрицу 3x5');
        for i:=1 to 3 do for j:=1 to 5 do read(m[i,j]);
        for i:=1 to 3 do begin
        for j:=1 to 5 do write(' ',m[i,j]); writeln;
end;
max:=-100;
for i:=1 to 3 do for j:=1 to 5 do
        if(j+i=j+2) THEN if(m[i,j]>max) then
        begin
                max:=m[i,j];
                jmax:=j;
        end;
        writeln('j max  ',max:4:2);

begin
p:=1;
for i:=1 to 3 do for j:=4 to 4 do m[i,j];
        for i:=1 to 3 do for j:=4 to 4 do m[i,j];
        for i:=1 to 3 do for j:=4 to 4 do P:=P*(((1+cos(1-1/m[1,4]))+8.3)*((1+cos(1-1/m[2,4]))+8.3)*((1+cos(1-1/m[3,4]))+8.3)*((1+cos(1-1/m[4,4]))+8.3));
        writeln(' P= ',P);
end;
for i:=1 to 3 do begin
        t:=jmax;
        jmax:=m[3,5];
        m[3,5]:=t;
        writeln('¬*бЁў б §*¬Ґ**®©');
end;
end.

Надо найти найбольший элемент в четных столбцах, вычислить произведение и поменять местами наибольший элемент с последним элементом.
- - - -
ошиба в нахождении элемента(я 100 вариантов перепробовал!!!) и в произведении(он почему-то на * ругается)