Квадратная матрица

[arhan]

Помогите решить такую задачу:
Дана квадратная матрица порядка n. Рассмотрим те строки, которые начинаются с отрицательного элемента. Вывести номер такой строки и сумму элементов. Вывести номер такой строки и сумму элементов этой строки.
Заранее спасибо!

[_-Re@l-_]

for i:=1 to n do
if A[i,1]<0 then begin  B[i]:=A[i,1]; //поиск отрицательных элементов
x:=i;end; //запоминаем номер строки
summa:=0; 
for i:=1 to n do
summa:=summa+A[x,i];

В общем, идея такая, только вместо х используй какой-нибудь массив, чтобы в первом цикле не находить сразу сумму элементов

[arhan]

Что то не получается!

[_-Re@l-_]

var
   A:array[1..5,1..5] of integer;
   B:array[1..5,1..5] of integer;
   X:array[1..10] of integer;
   i,j:integer;
   summa:array[1..5] of integer;
begin
     clrscr;
     for i:=1 to 5 do
     X[i]:=0;
     for i:=1 to 5 do
     begin
          for j:=1 to 5 do
          begin
               write('A[',i,',',j,'] = ');
               readln(A[i,j]);
               if A[i,1]<0 then X[i]:=i;
          end;
     end;
     for i:=1 to 5 do
     summa[i]:=0;
     for j:=1 to 5 do
     begin
          if X[j]>0 then begin
          for i:=1 to 5 do
          summa[j]:=summa[j]+A[X[j],i];end;
     end;
     for i:=1 to 5 do
     write('summa = ',summa[i],' ');
     readln;
end.

Вот так. Всё, что там на обычном паскале, замените сами на Delphi.
Проверил. Однако, если ряд начинается не с отрицательного числа в итоге выводит что сумма равна нулю. Думаю, что сами исправите.
Просто у меня времени не особо - то много.