Подсчитать сумму и количество элементов по каждой строке, предшествующих первому отрицательному элементу

var
  a: array[1..20, 1..20]of integer;
  b: array[1..20] of integer;
  i, j, m, n, s: integer;
 
begin
  write('Введите количество строк:');
  readln(n);
  write('Введите количество столбцов столбцов:');
  readln(m);
  writeln('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := Random(16);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln('Вектор А,содержащий суммы элементов строк:');
  for i := 1 to n do
  begin
    s := 0;
    for j := 1 to m do
      s := s + a[i, j];
    write(s, ' ');
  end;
  writeln;
  readln;
end.

var
  a: array[1..20, 1..20]of integer;
  k,s: array[1..20] of integer;
  i,j,m,n:integer;
 begin
  write('Введите количество строк:');
  readln(n);
  write('Введите количество столбцов столбцов:');
  readln(m);
  writeln('Исходная матрица:');
  for i := 1 to n do
   begin
    for j := 1 to m do
     begin
      a[i, j] :=-5+Random(16);
      write(a[i, j]:4);
    end;
   writeln;
  end;
  for i:=1 to n do
   begin
    k[i]:=0;
    s[i]:=0;
    j:=1;
    while(j<=m)and(a[i,j]>=0) do
     begin
      inc(k[i]);
      inc(s[i],a[i,j]);
      inc(j);
     end; 
   end;
  writeln('Вектор K, количество до первого отрицательного');
  for i:=1 to n do
  write(k[i]:4);
  writeln;
  writeln('Вектор S, сумма до первого отрицательного');
  for i:=1 to n do
  write(s[i]:4);
  writeln;
end.