Imprimir números en espacios de 8 columnas

Program NAME;
Uses Crt;
Var num:Integer;

Begin
Clrscr;
for num:=1 to 100 do
write(num:10);
Readkey;
End.


Bueno éste ejercicio nos permite imprimir números del 1 al 100 en espacios de 8 columnas.
Espero que les guste, un saludo. Pablo.