Матрица (Паскаль)

[Freia]

ПОЖАЛУЙСТА помогите написать рабочую программу!!! Задана матрица М (N*M).Сформировать вектор из сумм положительных элементов каждой строки...буду рада любой помощи

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    b:array[1..n] of integer;
    i,j:integer;

begin
clrscr;
randomize;
for i:= 1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100)-random(80);
    write(a[i,j]:5);
   end;
 writeln;
 end;
writeln('-------------------------------------------------------------');
for i:=1 to n do
 begin
  b[i]:=0;
   for j:=1 to n do
    if a[i,j]>0 then b[i]:=b[i]+a[i,j];
 write(b[i]:5);
 end;
readln;
end.

[Freia]

ОГромное спасибо!!!