Цифры натурального числа поместить в массив в том же порядке, в каком они записаны в числа. ( турбо Паскаль)

var j,n,i:longint;           a,b:array [1..1000] of integer; begin                   readln(n);// считываем число                   i:=1;// начинаем с первого элемента массива          while (n>0) do //пока n больше нуля          begin                 a[i]:=n mod 10;  //тем самым выбираем последнюю цифру числа                 n:=n div 10; // откидываем последнюю цифру                 i:=i+1;// следующий элемент массива          end;                 // по окончании в массиве a будет храниться наше число только                // в обратном порядке          i:=i-1;// теперь i равно длине числа +1 поэтому отнимаем 1          for j:=i downto 1 do // с конца массива а до 1          begin                 b[i-j+1]:=a[j]; // заполняем b в обратном порядке          end;          //теперь в массиве b хранится наше число в нужном порядке          for j:=1 to i do          begin                        write(b[j],' ');          end; end.