Вложенные циклы

[the Rock]

Было задание
Вывести на экран:
987654321
9...2
9..3
...
9
Я написал прогу:
i,j:integer;
begin
for i:=1 to 9 do
begin
for j:=9 downto i do
write(j);
writeln;
end;
end.
Хмм... ну вобщем неправильно. Препод говорит, чтобы обязательно было:
987654321
_98765432
__9876543
и т.д. т.е. должная равняться по правому столбику
Плиз, подскажите, как это сделать

 

[zubr]

i,j:integer;
s:string[9];

begin
s:='';
for i:=1 to 9 do
begin
for j:=9 downto i do
write(j);
writeln;
s:=s+' ';
write(s);
end;

end.