Pascal/Turbo Pascal - numeros de diez en diez

Buenas noches, necesitaria hacer un programa de me mueste los numeros del uno al cien, pero de diez en diez, separados por un espacio o un readln, desde ya muchas gracias por su ayuda

uses crt;
var
i : integer;
begin
clrscr;
i := 1;
while (i<=100) do
begin
if (i mod 10 = 0) then
begin
Writeln('',i)
end
else
begin
Write('',i:2,' ');
end;
i := i + 1;
end;
readln;
end.

Otra forma, mas corta y sencilla.
Salu2.

(* quieres decir asi*)
uses crt;
var i : integer;
begin
clrscr;
for i := 1 to 100 do
begin
write (i:2,' | ');
if (i mod 10) = 0 then
writeln;
end;
end.