Вывести числа в столбик по правилу с помощью вложенных циклов- Pascal(Паскаль)

1
0
22
00
333
000
4444
0000
55555
00000

uses crt;
var i,j:byte;
begin
clrscr;
for i:=1 to 10 do
 begin
  if i mod 2=0 then
  for j:=1 to i div 2 do write('0')
  else  for j:=1 to (i+1) div 2 do write((i+1)div 2);
  writeln;
 end;
readln
end.