Найти произведение отрицательных элементов массива. (Delphi 7)

если массив двухмерный, надо изменить

var a:array [1..100,1..100] of Integer;n,p,m,i,j,s:integer;beginn:=StrToInt(edt1.Text);m:=StrToInt(edt2.Text);strngrd1.RowCount:=n;strngrd1.ColCount:=m;s:=0;p:=1;randomize;for i:=1 to n do begin a[i,j]:=Random(10); strngrd1.Cells[j-1,i-1]:=IntToStr(a[i]); s:=p*a[i]; end; for j:=1 to m do if a[i] < 0 then begin p:=p*a[i]; end;end.

что-то типо этого должно быть) но не то :(

у Вас при объявлении указано, что массив двухмерный, а это не так

спасибо за попытку помочь)

var a: array [1..20] of integer; mult: longint; i: integer;begin     randomize;     mult := 1;     for i := 1 to 20 do     begin          a[i] := random(20) - 10;          if a[i] < 0 then mult := mult * a[i];     end;     for i := 1 to 20 do         write(a[i], ' ');     writeln;     writeln(mult);end.