В двумерном массиве найти произведение всех отрицательных элементов

Var a :array [1..20, 1..20] of real;     n,i,j: Integer;     p:real; begin     Write ('Введите размерность:  n = ');     ReadLn (N);     WriteLn ('Введите элементы массива:'); for i := 1 to n do for j := 1 to n do     Begin     Write ('a[', i,',', j,'] = ');     ReadLn (a[i, j]);     End; p:= 1; for i := 1 to n do for j := 1 to n do if (a[i,j])<0 then p:=p*a[i,j]; WriteLn ('Произведение всех отр. чисел: ',p: 6: 1); end.

Решение задачи в приложенном файле