Задача на двумерный массив

[netiv]

Задание: Если в первой строке матрицы есть хотя бы один отрицательный элемент, вычислить сумму всех элементов матрицы, в противном случае выдать сообщение о том, что в первой строке матрицы отрицательных элементов нет.
Помогите решить, вот код, но он с ошибкой, никак не могу понять как выделить первую строку.

uses crt;
var a:array[1..10,1..10] of real;
n,i,j,m:integer;
s:real;
begin
writeln('Введите размер квадратной матрицы');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
write('Введите [',i,',',j,']');
readln(a[i,j]);end;
writeln;
end;
s:=0;
for m:=1 to n do 
if (a[1,m]<0) then  begin
for i:=1 to n do 
for j:=1 to n do 
s:=s+a[i,j];
writeln('Сумма  элементов:=',s:4:2)
end
else writeln('Условие не выполняется');
readln
end.

[rubius2008]

s:=0; otr:=false;
for m:=1 to n do if (a[1,m]<0) then  otr:=true;

if otr then begin
for i:=1 to n do 
for j:=1 to n do 
s:=s+a[i,j];
writeln('Сумма  элементов:=',s:4:2)
end
else writeln('Условие не выполняется');

[9i.]

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

никак не могу понять как выделить первую строку.

у вас первая строка проверяется правильно, только если в ней будет больше 1 отрицательного элемента сума считается больше раз.
код выше решает данную проблему