Pascal program to 1to100 using tab

Pascal program to print 1 to 100 using tab and one line upto 10

program onetohundredusetab
{define variable}
var
x:integer;
begin;
  x:=1;
  while x<=100 do
  begin
   write(x,#9); {#9 is for tab}
   if x mod 10 =0 then
    write(#13#10); {for new line}
   x:=x+1;
  end;
  readln;
end.