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

var
  a: array[1..20,1..20] of integer;
  b: array[1..20] of integer;
  n,m,i,j: byte;
  s,t: integer;
begin
  write('Ââåäèòå ðàçìåðû ìàòðèöû n, m: ');
  readln(n,m);
  writeln('Ââåäèòå çíà÷åíèÿ ýëåìåíòîâ ìàòðèöû:');
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('a[',i,',',j,'] = ');
      readln(a[i,j]);
    end;
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    s:=0;
    for j:=1 to m do
    begin
      if a[i,j]<0 then s:=s+a[i,j];
      write(a[i,j]:4);
    end;
    b[i]:=s;
    writeln;
  end;
  writeln('Ïîëó÷åííûé îäíîìåðíûé ìàññèâ:');
  for i:=1 to n do write(b[i],' ');
  writeln;
  for i:=2 to n do
    for j:=n downto i do
      if b[j-1]<b[j] then
      begin
        t:=b[j-1];
        b[j-1]:=b[j];
        b[j]:=t;
      end;
  writeln('Îòñîðòèðîâàííûé îäíîìåðíûé ìàññèâ:');
  for i:=1 to n do write(b[i],' ');
  readln;
end.