Паскаль abs написать программу вычисления творения положительных частей третьей строчки двумерного

Решение задачки:
var i, j: byte;
a: array[1..100,1..100] of integer;
n, k, pr: integer;
begin
write(Введите размерность n (ngt;=3): );
readln(n);
randomize;
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(9)-4;
write(a[i,j]:5);
if(i=3)and(a[i,j]gt;0) then k:=k+1;
end;
writeln;
end;
writeln;
if k=0 then write(Ответ: в третьей строке массива нет положительных частей.)
else begin
pr:=1;
for j:=1 to n do if(a[3,j]gt;0) then pr:=pr*a[3,j];
writeln(Ответ: произведение положительных частей третьей строчки = ,pr);
end;
end.