Цифры в строке Опции

[18192123]

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

Слова разделены пробелами. Работать только с length, ord, chr. Предполагается, что в слове встречаются и символы и цифры. Отсюда вопрос - а как отличить цифры от символов в слове?

[volvo]

i := 1;
new_s := ''; { <--- Здесь будет храниться результат }
while slovo (s, i ) <> '' do begin
  sl := slovo (s, i); { <--- Берем очередное слово }
  new_sl := ''; { <--- Это - для преобразованного слова }

  { Сначала проходим по всем цифрам от конца слова к началу }
  for j := length(sl) downto 1 do
    if sl[j] in ['0'..'9'] then new_sl := new_sl + sl[j];

  { А теперь - по всем буквам, от начала к концу }
  for j := 1 to length(sl) do
    if not(sl[j] in ['0'..'9']) then new_sl := new_sl + sl[j];

  { Добавляем преобразованное слово к строке - результату }
  new_s := new_s + new_sl + ' ';

  inc(i); { <--- и переходим к следующему слову }
end;

writeln ('   rezyltat: ');
writeln (new_s); { <--- Печатаем результат }