Задачка в паскале

[kodigans]

Нужно записать произвольное число через пробелы.
Например, 123 -> 1 2 3
Сделал через length, но требуется с помощью циклического оператора. Ниже пример моего решения:

Var 
  s,t: string;
  i: integer;
begin
  write ('Введите число: ');
  read (s);
  t:='';
  for i:=1 to length(s) do 
    t:=t+s[i]+' ';
  writeln ('Результат: ',t);
end

.

[Аватар]

их 3: for, repeat и while. for уже есть, через него ты и сделал, а не через length

[kodigans]

Нужно без использования length

[newerow1989]

var n,k:integer;
    s:string;
begin
   Write('n = '); Readln(n);
   s:='';
   Repeat
      k:=n mod 10;
      s:=IntToStr(k)+' '+s;
      n:=n div 10;
   Until n=0;
   Writeln('s = ',s);
   Readln;
end.

[Аватар]

Или так, IntToStr в турбо вроде нет

  repeat
    s:=chr(48+n mod 10)+' '+s;
    n:=n div 10;
  until n=0;

только способ со строкой более универсальный - числа длинные обработает. А этот нет

[kodigans]

Спасибо большое

[newerow1989]