Дана целочисленная квадратная матрица. Определить сумму элементов в тех строках, которые не содержат отрицательных элементов — Pascal(Паскаль)

Program matrica;
Uses crt;
Const n=10;
Var a: array[1..n,1..n] of integer; i,j,k:byte; s: array[1..n] of integer;
Begin
Clrscr;
Randomize;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(21)-10;
Write(a[i,j]:3);
If j>=0 then k:=k+1;
If k=n then 
begin
For i:=1 to n do
For j:=1 to n do
If j>1 then
begin
s[j]:=s[j-1]+a[i,j];
Write(s[j]:4);
end;
end;
Writeln;
end;
End.