Как в матрице перемножить именно нужные элементы?

[Npwas]

Вот текст программы который написал, подскажите в чем ошибка. Задача там: Дана матрица A[nxn] и надо произведение элементов, расположенных в столбцах с отрицательным элементом в последней строке.

program Matrix;

{$APPTYPE CONSOLE}
uses SysUtils;
const n=4;
type
mas=array[1..n,1..n] of integer;
  var
  a:mas;
  i,j, P, d:integer;

BEGIN
 P:=1;
 d:=1;
 Randomize;
 {Создание матрицы}
 for i:=1 to n do
  begin
   for j:=1 to n do
    a[i,j]:=random(4)-2;
  end;
      {вывод матрицы}
  for i:=1 to n do
   begin
    for j:=1 to n do
     write('',a[i,j]:4);
     writeln('');
     writeln('');
   end;
     {Жалкая попытка подсчета произведения}
 for i:=1 to n do
  begin
   for j:=1 to n do
    if a[d,4]<0 then
     P:=P*a[i,j];
  end;
   {Неудачный вывод призведения}
 Write('P=',a[i,j]);
 Readln;
END.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[VIK_aka_TOR]

ну... код оформлять соответствующими тегами ....
а что касается задания...

{$APPTYPE CONSOLE}
const n=4;
type
mas=array[1..n,1..n] of integer;
var
a:mas;
i,j, P:integer;

BEGIN
P:=1;
Randomize;
{Создание матрицы}
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(4)-2;
if a[i,j] = 0 then
   a[i,j] := 1;
   end;
end;
{вывод матрицы}
for i:=1 to n do
begin
for j:=1 to n do
write('',a[i,j]:4);
writeln('');
writeln('');
end;
{попытка подсчета произведения}
for i:=1 to n do
if a[4,i] < 0 then
for j:=1 to n do
P:=P*a[j,i];
{Неудачный вывод призведения}
Write('P=',p);
Readln;
END.

немного напутаны понятия строк и столбцов у тебя))) да и сам путаю даволи часто.. всегда предварительно проверяю где какой индекс в масиве что означает... + добавил если у тя 0 в массиве то заменяю 0 на 1... коль не нужн будет то убери...

[Npwas]

Спасиб за помощь!!! Но к сожалению или лаг какойто или , что, но как ни пытаюсь нажать на весы, чет не хочет, можь и с этим подскажешь, как отблагодарить тебя, а то чет оно не хочет!!! 1-ый раз норм, а последующие чет ни как!!!

[VIK_aka_TOR]

мот защита от тырканий....))) в следующий раз как заглянешь кликнешь...)

[Npwas]

Обязательно!!!