garik

Добырый деньне могли бы вы подправить мою программу на паскале аналогично программе с массивами в этой теме:Двумерные массивы и циклическая алгоритмическая конструкция
Моя программа:
program p1;
uses crt;
const
n=8;
m=7;
var
i,p:integer;
matrix:array[0..n,0..m] of integer;
begin
p:=1;
for i:=0 to n do
if matrix[i] < 0 then p:=p*matrix[i];
writeln('answer: ',p);
readln;
end.