program posledovatelnosti_cifr;

var i,j,k:integer;

begin

    for i:=1 to 9 do

    begin

         write(i);

         for j:=7 downto i-1 do write('0');

         writeln;

         for k:=1 to i do if i<=8 then write(k) else write();

    end;

end.

Скорее всего не самое оптимальное решение, но именно так получилось получить желаемый вывод.