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

for i:= 1 to n do begin
 if count > 0 then
  writeln(s);
 s:= 0;
 count:= 0;
 for i2:= 1 to n do begin
  s:= s + a[i,i2];
  if a[i,i2] < 0 then
   inc(count);
 end;
end;

uses
  crt;
const
  n=3;{ïîðÿäîê ìàòðèöû}
var
  a:array[1..n,1..n]of integer;{ìàòðèöà}
  i,j,k,tempi,tempj,max,min,countsed:integer;
  fl:boolean;
begin
  clrscr;
  {çàïîëíÿåì ìàòðèöó}
  textbold;
  writeln('Èñõîäíàÿ ìàòðèöà:');
  textnormal;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  textbold;
  writeln('Ðåçóëüòàòû:');
  textnormal;
  {îòûñêèâàåì ñåäëîâûå òî÷êè}
  countsed:=0;
  for i:=1 to n do
  begin
    min:=a[i,1];
    tempi:=1;
    tempj:=1;
    for j:=2 to n do
      if a[i,j]<min then
      begin
        min:=a[i,j];
        tempi:=i;
        tempj:=j
      end;
    k:=1;
    fl:=true;
    repeat
      if a[k,tempj]>min then
        fl:=false;
      inc(k)
    until
      (k>n) or (fl=false);
    if fl then
    begin
      textcolor(2);
      writeln('Ýëåìåíò a[',tempi,',',tempj,'] ÿâëÿåòñÿ ñåäëîâîé òî÷êîé');
      inc(countsed)
    end;
  end;
  if countsed=0 then
  begin
    textcolor(4);
    writeln(' çàäàííîé ìàòðèöå ñåäëîâûõ òî÷åê íåò...');
  end
end.

uses
  crt;
const
  n=3;{ïîðÿäîê ìàòðèöû}
type
  MyArr=array[1..n,1..n]of integer;
var
  a:MyArr;
procedure Sed(var a:MyArr);
var
  i,j,k,tempi,tempj,max,min,countsed:integer;
  fl:boolean;
begin
  clrscr;
  {çàïîëíÿåì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  writeln('Ðåçóëüòàòû:');
  {îòûñêèâàåì ñåäëîâûå òî÷êè}
  countsed:=0;
  for i:=1 to n do
  begin
    min:=a[i,1];
    tempi:=1;
    tempj:=1;
    for j:=2 to n do
      if a[i,j]<min then
      begin
        min:=a[i,j];
        tempi:=i;
        tempj:=j
      end;
    k:=1;
    fl:=true;
    repeat
      if a[k,tempj]>min then
        fl:=false;
      inc(k)
    until
      (k>n) or (fl=false);
    if fl then
    begin
      textcolor(2);
      writeln('Ýëåìåíò a[',tempi,',',tempj,'] ÿâëÿåòñÿ ñåäëîâîé òî÷êîé');
      inc(countsed)
    end;
  end;
  if countsed=0 then
  begin
    textcolor(4);
    writeln(' çàäàííîé ìàòðèöå ñåäëîâûõ òî÷åê íåò...');
  end
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  Sed(a)
end.