Цифры числа в том же порядке Опции

[Ozzя]

Студентка одна попросила о помощи. Задача

ДАНО нат. число. Поместить его цифры в массив в том же порядке, в каком они были записаны.

Склеил из форумовских

program forforum;
var
  a, b  : LongInt;
  q     : Array [1..16] of Integer;
  i, n  : Integer;

begin
  readLn(a);
  b:=0;
  while a<>0 do
    begin
      b:=b*10+a mod 10;
      a:=a div 10;
    end;
  i:=1;
  while b<>0 do
    begin
      n:=i;
      a:= b mod 10;
      b:= b div 10;
      q[i]:=a;
      i:=i+1;
    end;
  for i:=1 to n do
    writeLn(q[i]);
  readln;
end.

Ан нет, преподу не понравилось. Нужно оптимизировать, обойдясь одним циклом. И что-то я тут задумался

Сообщение отредактировано: Ozzя - 10.02.2010 15:50

[Ozzя]

 while a > 0 do
  begin
    if b > a then begin
      b := b div 10; dec(n);

Ведь шла мысль в этом направлении...
Блин

Оззя, ты чего?

Я лох
Уволюсь в управдомы

Добавлено через 15 мин.
Вольво, выручай!
Препод поменял
строки

  a, b  : LongInt;
  q     : Array [1..16] of Integer;

на

  a, b  : Int64;
  q     : Array [1..64] of Integer;

ввел 1234567890123456
Программа виснет
И заявил: "Ваш код машинно-зависим. Требуется общее решение".
Оно вообще возможно?

Добавлено через 13 мин.
Что-то типа такого

if sizeof(b)=4 // longint (dword)
then
  b := 1000000000;

if sizeof(b)=8 // int64
then
  b := 1000000000000000000;

не покатит?