[Паскаль, массивы]: вывести количество элементов каждой строки матрицы отдельной строкой в исходную матрицу

[_Ася_]

Помогите пожалуйста, мне нужно вывести количество элементов каждой строки матрицы отдельной строкой в исходную матрицу. У меня выводит отдельно.
Вот программа:

program Labwork6;
const nmax=4;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,s1:integer;
 begin
  randomize;
  repeat
   writeln('razmer matrici ot 2 do ',nmax,'n =');
  readln(n);
  until n in [2..nmax];
  writeln('isxodnayz matrica:');
   for i:=1 to n do
    begin
     for j:=1 to n do
      begin
       a[i,j]:=random(20);
        write(a[i,j]:3);
        end;
     writeln;
    end;
  writeln('rezultat:');
  begin
  for i:=1 to n do begin
   s1:=0;
    for j:=1 to n do begin
     if (a[i,j] >=0) and (a[i,j]<=10) then inc(s1);
   end;
    writeln('v stroke ',i,' sum elem= ',s1);
   end;
   end;
 readln
 end.

[Aleksandr H.]

имхо задание не соответствует реализации. В задании - найти количество елементов каждой строки. Зачем? Раз и так ясно что в каждой строке их N.
А в коде ищете количество елементов каждой строки которые 0>=елемент>=10. И выводите просто на екран, а в задании их надо прописать в строку N+1 матрицы