Заменить числа соответствующими числительными в иминтельном падеже - Pascal

Формулировка задачи:

В предложении имеются однозначные числа. Заменить эти числа соответствующими числительными в иминтельном падеже. Например: Ввели: Купили 5 мячей. Должно стать: Купили пять мячей Если не сложно то пожалуйста с алгоритмом

Решение задачи: «Заменить числа соответствующими числительными в иминтельном падеже»

Листинг программы

const digits: array['0'..'9'] of string = ('нуль', 'один', 'два', 'три', 'четыре', 'пять', 'шесть', 'семь', 'восемь', 'девять');
var s: string;
    c: char;
begin
  read(s);
  for c := '0' to '9' do 
    while pos(c, s) > 0 do 
      begin
        insert(digits[c], s, pos(c, s));
        delete(s, pos(c, s), 1)
      end;
  writeln(s)
end.

Объяснение кода листинга программы

Создаётся константа digits, которая представляет собой массив строк, содержащий числительные от 0 до 9 в именительном падеже.
Переменная s инициализируется строкой, в которую будут вставляться числительные.
Переменная c инициализируется символом, который будет последовательно проверяться на наличие в строке s.
Запускается цикл for, который проходит по всем символам от 0 до 9.
Внутри цикла проверяется, есть ли текущий символ c в строке s. Если да, то выполняется следующая часть кода.
Вставляется числительное из массива digits в строку s на позицию, определяемую текущим символом c.
Выделяется один символ из строки s на позицию текущего символа c.
Выводится измененная строка s.
Цикл завершается, когда символ c не найден в строке s.
Выводится итоговая строка s.