Дана последовательность чисел, заканчивающихся нулем. У каждого числа сначала записано количество цифр в этом числе, а потом через пробел — сами цифры. Выведите сначала количество чисел в последовательности, а потом сами числа — Pascal(Паскаль)

Пример:
3 4 7 3 2 8 9 3 5 0 5 0
3
473 89 505

uses crt;
var i, k, a, p, n: longint;
m:array[1..100]of longint;
 
begin
    n := 0;
    clrscr;
    repeat
        read(k);
        if k<>0 then
        begin
            inc(n);
            m[n]:=0;
        end;
        p := 1;
        for i:=1 to k do p:=p*10;
        for i:=1 to k do
        begin
            read(a);
            p := p div 10;
            m[n] := m[n] + p * a;
        end;
    until k = 0;
    writeln(N);
    for i:=1 to N do write(m[i],' ');
    readln;
end.