Pascal_user Опции

[Terminator]

Есть такая задачка:

Даны натур. число n, действительная квадратная матрица порядка n.
Построить последовательность b1...bn из нулей и единиц, в которой b[i]=1 тогда и только тогда,
когда в i-й строке матрицы есть хотя бы один отриц. элемент. Прогр. должна содержать не менее 3-х функций и процедур.

Вроде написал, но нужно, чтобы имела место передача массива как параметра процедуры

Код

program matrix;
uses crt;
const m=10;
     space='---------';
var    n:byte;
    y:real;{veschestvennye chisla}
    i,j:integer;{Tseloye}
    x:word;{Naturalnoye chislo}
    znak:byte;
    a: array [1..m,1..m] of real;
    b: array [1..m] of word;


{}
procedure header;
begin
clrscr;
write(space); textcolor(4); write(' copyright '); textcolor(7); writeln(space); writeln;
end;
{}
procedure zapros;
begin
Write('Введите размер матрицы :');
Read(n);
end;

procedure vvod;
var i, j: integer;

begin

{nachalo vneshnego tsikla}
    for j:=1 to n do begin

    {nachalo vnutrennego tsikla}
 for i:=1 to n do begin

 Write('Введите элемент ',i,'-й строки ',j,'-го столбца :');
 Readln(a[i,j]);

 end;
    {konets vnutrennego tsikla}
    writeln;


end;
{konets vneshnego tsikla}

end;
{}
procedure screen;
begin
clrscr;
textcolor(white);
end;
{}
function massiv: word;
begin

end;


procedure input;
begin

end;


procedure rand;
var q,r: real;
begin


{nachalo vneshnego tsikla}
    for j:=1 to n do begin

    {nachalo vnutrennego tsikla}
 for i:=1 to n do begin

 q:=Random(100);
 r:=Random(Random(round(n*n)));

 if r=0 then q:=0-q;

 a[i,j]:=q;
 writeln('b[',i,',',j,']=',a[i,j]);
 end;

    {konets vnutrennego tsikla}

    writeln;Readln;


end;
{konets vneshnego tsikla}

end;

{}
function sequence: word;
begin
writeln;
for i:=1 to n do
begin
    for j:=1 to n do
    begin
 if a[i,j]<0 then
 begin
 b[i]:=1;
 break;
 end;
    end;
end;
end;
{}

begin


header;
while (n>100) or (n<=0) do zapros;
massiv;
if n<5 then vvod else rand;
sequence;




for i:=1 to n do
begin
writeln('b[',i,']=',b[i]);
delay(10000);
end;

writeln;
write('Press Enter');
readln;

end.

[Terminator]

Прогр. должна содержать не менее 3-х функций и процедур.