napiwi mne v li4ku... rewit ne problema

zada4a N1... napisana na Delphi_console application

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

const n=5;

type matrix=array [1..n,1..n] of integer;

var
mat: matrix;
i,j: integer;
B: boolean;

procedure poisk(var a:matrix;p:integer );
var k,l:integer;
begin
l:=1;
for k:=1 to n do
l:=l*a[p,k];
writeln('proizvedenie v stroke [',p,']=',l);
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
randomize;
writeln('Matrix');
for i:=1 to n do
for j:=1 to n do
mat[i,j]:=random(n)-2;

for i:=1 to n do begin
writeln;
for j:=1 to n do
write(mat[i,j]:3);
end;

writeln;

for i:=1 to n do
begin
b:=false;
for j:=1 to n do
if mat[i,j]<0 then b:=true;
if b=false then poisk(mat,i);
end;

readln;
end.

очень очень очень благодарна!!! :)