Найти произведение элементов матрицы, стоящих в четных строках и нечетных столбцах

for j := 1 to m do
for i := 1 to n do
readln(A[i,j]);
P := 1;
for j := 1 to m do
for i := 1 to n do
if (i mod 2 = 0) and (j mod 2 <> 0) then
P := P*A[i,j];
writeln('P=', P);
readln;

 {....}
P := 1;
j:= 1;
while (j<=m) do
  begin
    i:= 2;
    while (i<= n) do
      begin
        P := P*A[i,j];
        i := i+2;
      end;
    j:= j+2;
  end;
{...}

// äàíû ÷èñëà n ââåñòè ìàññèâ èç n ñòðîê è m ñòîëáöîâ.
// íàéòè ïðîèçâåäåíèå ýëåìåíòîâ ìàññèâà ñòîÿùèõ â ÷åòíûõ ñòðîêàõ è íå÷åòíûõ ñòîëáöàõ.
// Pascal-ABC. lamed, 14.05.2011
const
  n=4;
  m=4;
var
  i, j: integer;
  p: longint;
  a: array[1..n,1..m] of integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      readln(a[i,j]);
 
  p := 1;
  i := 2;
  while (i<=n) do
    begin
      j:= 1;
      while (j<= m) do
        begin
          p := p*a[i,j];
          j := j+2;
        end;
      i:= i+2;
    end;
 
  writeln('p=', p);
end.

// Дано число N ввести массив чисел длины N.
// Вывести элементы массива в порядке возрастания
// Pascal-ABC. lamed, 14.05.2011
const
  MaxN=1000;
var
  i, j: integer;
  n: integer;
  tmp: integer;
  a: array[1..MaxN] of integer;
begin
    // Ввод
  readln(n);
  if (n<1) or (n>MaxN) then
    writeln('Ошибка ввода')
  else begin
    for i:= 1 to n do
      readln(a[i]);
 
    // Печать
    writeln('Исходный массив');
    for i:= 1 to n do
      write(a[i]: 3);
    writeln;
 
    // Сортировка "пузырьком"
    for i:= 1 to n-1 do
      for j:= n downto i+1 do
        if a[j-1]>a[j] then
          begin
            tmp := a[j];
            a[j] := a[j-1];
            a[j-1] := tmp;
          end;
 
    // Печать
    writeln('Сортированный массив');
    for i:= 1 to n do
      write(a[i]: 3);
    writeln;
  end;
end.