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

[18192123]

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

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

[volvo]

а как отличить цифры от символов в слове?

SL := slovo(s, i);
for j := 1 to length(SL) do
  if SL[j] in ['0' .. '9'] then { цифра }
  else { буква }