дан двумерный массив определить сумму отрицательных элементов 5 строки

var
A: array[1..5, 1..8] of integer;
i, j: byte;
sumA: integer;
begin
randomize;
writeln('Исходный массив':28);
for i := 1 to 5 do
begin
for j := 1 to 8 do
begin
A[i, j] := random(300)-150;
write(A[i,j]:5);
if ((i = 5) and (A[i, j] < 0)) then sumA := sumA + A[i, j];
end;
writeln;
end;
writeln('Сумма отрицательных 5 строки = ', sumA);
end.