Сформировать одномерный массив из количества ненулевых элементов каждой строки матрицы.

uses crt;
var
   a:array[1..100,1..100] of integer;
   i,j,m,n,k:integer;
   b:array[1..100] of integer;
begin
clrscr;
write('Ââåäèòå êîëè÷åñòâî ñòðîê=');
readln(n);
write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ=');
readln(m);
writeln('Èñõîäíàÿ ìàòðèöà');
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(51)-10;
    if (a[i,j]<>0) then k:=k+1;
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln('Ìàññèâ èç êîëè÷åñòâà íåíóëåâûõ');
for i:=1 to k do
 begin
  b[i]:=random(51)-10;
  write(b[i]:3);
 end;
readln
end.

uses crt;
var
   a:array[1..9] of integer;
   i,j,n:integer;
begin
clrscr;
writeln('Ìàññèâ');
randomize;
for i:=1 to 9 do
 begin
  a[i]:=random(51)-10;
  write(a[i]:3);
  if (a[i]>0) then n:=i;
 end;
writeln;
writeln('Íîìåð ïîñëåäíåãî ïîëîæèòåëüíîãî ýëåìåíòà ',n);
readln
end.