Матрица Pascal

[L1s1c1a]

Дана целочисленная прямоугольная матрица. Вывести ее на экран и определить сумму элементов в тех строках, которые не содержат отрицательных элементов.
(Если можно, то более примитивным кодом)
ЗЫ -(Сумму считает неправильно, ибо складывает только отрицательные числа, не знаю как сделать так, чтобы считал сумму всей строчки)

Program matrix;
Var A:array[1..100, 1..100] of integer;
s,i,j,x,y:integer;
begin
write('Введите кол-во строк: ');
read(x);
write('Введите кол-во столбцов: ');
read(y);
writeln('Введите элементы: ');
for i:=1 to x do
for j:=1 to y do
read(A[i,j]);
writeln('Прямоугольная матрица: ');
for i:=1 to x do
begin
for j:=1 to y do
write(A[i,j]:6);
writeln();
end;
writeln('Строки с отрицательными элементами: ');
for i:=1 to x do
begin
s:=0;
for j:=1 to y do
if A[i,j]<0 then s:=s+A[i,j];
writeln('Сумма строки №',i ,s:4 );
end;
end.

[Aleksandr H.]

var f: boolean;
......
f:=true;
for j:=1 to y do begin
if A[i,j]<0 then f:=false; s:=s+A[i,j]; end;
if f then writeln('Сумма строки №',i ,s:4 );

[L1s1c1a]

Сообщение от Aleksandr H.

var f: boolean;
......
f:=true;
for j:=1 to y do begin
if A[i,j]<0 then f:=false; s:=s+A[i,j]; end;
if f then writeln('Сумма строки №',i ,s:4 );

Извините, у меня в условии ошибка, там должно быть: "Содержат хотя бы один отрицательный элемент".

[Aleksandr H.]

Сообщение от L1s1c1a

Извините, у меня в условии ошибка, там должно быть: "Содержат хотя бы один отрицательный элемент".

if not f then

[L1s1c1a]

Сообщение от Aleksandr H.

if not f then

Теперь он просто не выводит результат

[L1s1c1a]

Сообщение от L1s1c1a

Теперь он просто не выводит результат

и выводит он почему-то результат только последней строки

[Aleksandr H.]

https://rextester.com/VHX31754

[L1s1c1a]

Сообщение от Aleksandr H.

https://rextester.com/VHX31754

Спасибо огромное, помогли