С клавиатуры вводится матрица n*m. Pascal

[Maxim387]

Помогите пожалуйста с задачей в паскале.

С клавиатуры вводится матрица n*m.
1. Определить произведение всех чётных чисел в каждой строке и записать это произведение в последний столбец.
2. Найти максимальный и минимальный элементы в каждой строке и поменять их местами
3. Повернуть матрицу на 90 градусов по часовой стрелке.

[Serge_Bliznykov]

1)

for i:=1 to n do begin
  p:=1; cnt:=0;
  for j:=1 to m do
    if not odd(a[i,j]) then begin inc(cnt); p:=p*a[i,j] end;
  if cnt>0 then a[i,m] := p
end;

[newerow1989]

const n=4;
      m=3;
var p:array[0..n-1,0..m-1] of integer;
    i,j,a,b,c:integer;
begin
   For i:=0 to n-1 do
      For j:=0 to m-1 do
      begin
         Write('p[',i,',',j,'] = ');
         Readln(p[i,j]);
      end;
   For i:=0 to n-1 do
   begin
      a:=1;
      For j:=0 to m-1 do
         If p[i,j] mod 2=0 then
            a:=a*p[i,j];
      p[i,m-1]:=a;
   end;
   For i:=0 to n-1 do
   begin
      For j:=0 to m-1 do
         Write(p[i,j]:4,'  ');
      Writeln;
   end;
   Writeln;
   For i:=0 to n-1 do
   begin
      a:=0;
      b:=0;
      For j:=1 to m-1 do
      begin
         If p[i,a]<p[i,j] then
            a:=j;
         If p[i,b]>p[i,j] then
            b:=j;
      end;
      c:=p[i,a];
      p[i,a]:=p[i,b];
      p[i,b]:=c;
   end;
   For i:=0 to n-1 do
   begin
      For j:=0 to m-1 do
         Write(p[i,j]:4,'  ');
      Writeln;
   end;
   Writeln;
   For j:=0 to m-1 do
   begin
      For i:=0 to n-1 do
         Write(p[n-i-1,j]:4,'  ');
      Writeln;
   end;
   Readln;
end.