матрица.. в паскале

[schai]

Дана матрица А[5,3], содержащая положительные и отрицательные элементы.

1 Определить в какой строке более одного отрицательного элемента и заменить элементы этой строки числом 5. Затем вывести матрицу.
2 Определить количество положительных и отрицательных элементов матрицы и записать их в одномерный массив. Вывести массив.

как сделать эти условия в паскале.. не получается у меня воще....:confus ed:

кот как бы 2 условие сделала, ток не до конца, а как тут сделать 1 условие??
program mas;
var
i,j,ipol,iotr:integer;
x:array[1..5,1..3]of integer;
begin
ipol:=0;
iotr:=0;
Randomize;
For i:=1 to 5 do
For j:=1 to 3 do x[i,j]:=Random(10)-5;
For i:=1 to 5 do
begin
For j:=1 to 3 do write(x[i,j],' ');
writeln;
end;
begin
if x[i,j] < 0 then
iotr:=iotr+1;
if x[i,j] > 0 then
ipol:=ipol+1;
end;
writeln('kolvo pol ',ipol);
writeln('kolvo otr ',iotr);
readln;
end.

[Sciv]

Ну вот тебе процедура превращения матрицы в вектор:

procedure CreateVector;
var i,j,k:integer;
begin
  k:=1;
  for i:=1 to n do
    for j:=1 to m do begin
      v[k]:=a[i,j];
      inc(k);
    end;
end;

a - исходный массив размером [n,m], v- результирующий вектор.