Delphi 7 Песочные час

[Kloun]

Пебят, плохо шарю в этом и мозги кипят, сообразить не могу вообщем вот самам программа

var p,n,u:integer;
procedure oleg (p,n:integer);
var i,m:integer;
begin
for i:=n to (u-n) div 2 do write (' ');
for i:=n downto 1 do write (p); writeln;
if p<9 then
oleg (p+1,n-2);
if p<9 then
begin
for i:=n to (u-n) div 2 do write (' ');
for i:=n downto 1 do write (p); writeln;
end;
end;
begin
write('vvedite N ');
readln(u);
p:=0;
oleg(p,u+18);
readln;

Надо что бы выглядело вот так

999999999999999999999
_8888888888888888888
__77777777777777777
___666666666666666
____5555555555555
_____44444444444
______333333333
_______2222222
________11111
_________000
________11111
_______2222222
______333333333
_____44444444444
____5555555555555
___666666666666666
__77777777777777777
_8888888888888888888
999999999999999999999

1)Где колличество нулей вводится с клавиатуры.
2) У меня в программе с права картинка похожа на часики а с лева все циферки приклеились к стенке, не могу ни как их от туда убрать((
3)Мне бы ещё поменять последовательность, сделать так же как на картинке)

[Kloun]

Поправка! 1) пункт отпадает) Это я оплошал, я его исправил))