Нужна помощь с двумерным массивом в паскале..

[MyLastHit]

Я в двумерных массивах ваще мало че соображаю...помогите стать на путь истиный)))
Посчитать произведение ненулевых элементов лежащих выше побочной диагонали.

Вот я пыталcя но не получилось самостоятельно:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const n= ;
        m= ;
 var a:array[1..n,1..m] of integer;
 i,j,p:integer;

begin
  writeln('vvedi massiv');
  p:=1;
  for i:=1 to n do
  for j:=1 to m do readln(a[i,j]);
  for i:=1 to (n-1) do
  for j:=1 to (m-1) do
  if (i+j)>(n+1) then
  begin
  if a[i,j]<>0 then p:=p*a[i,j];
  end;
  writeln(p);
  readln;
  readln
end.

[CodeExpert]

Ну уверен точно что будет работать так, под рукой нет компилятора, но как бы так:

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 var a:array[1..100,1..100] of integer;
     i,j,m,n,p:integer;
begin
  writeln('vvedi razmernost massiva');
  readln(m,n);
  writeln('vvedi massiv');
  p:=1;
  {считываем массив}
  for i:=1 to n do
      for j:=1 to m do readln(a[i,j]);
  {выводим массив, чтоб хотя бы увидеть его
  в первоначальном виде}
  for i:=1 to n do begin
      for j:=1 to m do write(a[i,j]);Writeln;end;
  for i:=1 to (n-1) do begin
    for j:=1 to (m-1) do
      if (i+j)<(n+1) then
         begin
          if a[i,j]<>0 then p:=p*a[i,j];
          end; end;
  writeln(p);
  readln;
end.

[MyLastHit]

спасибо! программа работает...но не так как нужно... может кто найдет здесь ошибку?

[MyLastHit]

все, нашел, ошибка здесь)))

for j:=1 to (m-1) do
      if (i+j)<(n+1) then