Ввести матрицу А[6,8] , вывести ее.найти произведение отрицательных элементов

uses crt;
var
   a:array[1..6,1..8] of integer;
   i,j:integer;
   v:longint;
begin
clrscr;
v:=1;
writeln('Èñõîäíàÿ ìàòðèöà');
for i:=1 to 6 do
 begin
  for j:=1 to 8 do
   begin
    a[i,j]:=random(51)-10;
    write(a[i,j]:4);
    if (a[i,j]<0) then v:=v*a[i,j];
   end;
  writeln;
 end;
write('Ïðîèçâåäåíèå îòðèöàòåëüíûõ ÷èñåë ',v);
readln
end.

uses crt;
var
   b:array[1..100,1..100] of integer;
   n,m,i,j:integer;
   v:longint;
   c:array[1..100] of integer;
begin
clrscr;
v:=1;
write('Ââåäèòå êîëè÷åñòâî ñòðîê=');
readln(n);
write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ=');
readln(m);
writeln('Ìàòðèöà');
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    b[i,j]:=random(51)-10;
    write(b[i,j]:4);
   end;
  writeln;
 end;
for j:=1 to m do
 begin
  for i:=1 to n do
   if (b[i,j]>0) then v:=v*b[i,j];
  c[j]:=v;
  v:=1;
 end;
writeln('Ïðîèçâåäåíèÿ ïî ñòîëáöàì');
for i:=1 to m do
 writeln(i,'-é ñòîëáåö=',c[i]);
readln
end.