двумерный массив(Pascal)

[Ekaterina92439]

Найти произведение всех элементов двумерного массива отличающихся от нуля.Массив ввести ,рассчитать и вывести.

program zad1;
var
    A : Array [0..4,0..4] of integer;
    p,i, j : integer;
begin
    for i:=0 to 4 do
    begin
        for j:=0 to 4 do
        begin
            A[i,j]:=Random(50)-25;
            if A[i,j]<>0 then p:=p*A[i,j];
            Write(A[i,j]:2,' ');
        end;
        WriteLn;
    end;
end.

Выводит,но не рассчитывает ,что делать?где ошибки?помогите,что надо добавить))

[Mad_Cat]

program zad1;
var
A : Array [0..4,0..4] of integer;
p,i, j : integer;
begin
p:=1;
for i:=0 to 4 do
begin
for j:=0 to 4 do
begin
A[i,j]:=Random(50)-25;
if A[i,j]<>0 then p:=p*A[i,j];
Write(A[i,j]:2,' ');
end;
WriteLn;
end;
Write('p=',p)

end.

[kventin_zhuk]

program zad1;
uses
  crt;
const
n=5;
m=5;
var
A : Array [0..n-1,0..m-1] of integer;
p,i, j : integer;
begin
p := 1;
for i:=0 to n-1 do
begin
  for j:=0 to m-1 do
  begin
    A[i,j]:=Random(50)-25;
    if A[i,j]<>0 then p:=p*A[i,j];
    Write(A[i,j]:2,' ');
  end;
  WriteLn;
end;
Write(p:2,' ');
end.

Найти произведение всех элементов двумерного массива отличающихся от нуля;

Mad_Cat: а у вас вывод произведения в цикле стоит, получается будет выводить произведение элементов построчно.

[Ekaterina92439]

Спасибо огромное)))