Задача на матрицы. [Паскаль]

[Dortmuns]

Здравствуйте граждане,очень надеюсь на вашу помощь при решении задачи:
Матрица (3.5)
1)Найти наибольший элемент среди элементов чётных столбцов.
2)Подсчитать произведение для 4-го столбца по формуле (P=P*((1+cos(1-1/a[i,4]))+8.3)
3)Поменять местами найденный наибольший элемент в задании (1) с последним элементом матрицы.

[Niro]

Чем помочь то? Решить? Но это не помочь

[Dortmuns]

Наработки сейчас скину

Program matr;
Uses math;
Var A:array[1..3,1..5] of real;
i,j ,imax, jmax,;integer; P,S, max,c:real;
begin
  For i:=1 to 3 do
  For j:=1 to 5 do
begin
writeln ('Vvedite A[',i:2,',',j:2,']=');
Read (a(i,j]);
end;
Writeln ('Matrica A');
for i:=1 to 3 do
begin 
for j:=1 to 5 do
Write (a[i,j]:6:1,' ');
writeln();

endl;
Writeln (' "+" ' elementy');
max=-1000;
for j:=1 to 5 do
if (max(a[i,2]) then
begin
max:=a[i,j];
imax:=i;
jmax:=j;
writeln ('max=' , max;6:2, ' imax=' , imax:2, ' jmax=' , jmax:2);
end;
Writeln ('Proizvedenie');
P:=1;
for j:=1 to 4 do

P:=P*((1+cos(1-1/a[i,4]))+8.3);
writeln (' P=' ,P:6:2);
For i:=1 to 3 do
begin
For j:=1 to 5 do
p:=a[3,5];
a[3,5]:=c;
c:=p;
writeln (a[i,j]:6:1 , ' ');
end;
end.

[Niro]

Вы этот код как пишите - без компилятора?
Или просто собрали из других кусков? иначе откуда ошибки вроде
jmax,;integer
Read (a(i,j]);
Ладно держите, но не проверял

pr:=a[n,m];
for i:=1 to n do
for j:=1 to m do
  if (j mod 2)=0 then if a[i,j]>max then begin
                                           max:=a[i,j]; 
                                           l:=i;
                                           g:=j;  
                                         end
a[l,g]:=pr;
a[n,m]:=max;
p:=1;
for i:=1 to n do
  P=P*((1+cos(1-1/a[i,4]))+8.3)

[Dortmuns]

Огромное спасибо
p.s да код писал в блокноте)