Pascal "Дана строка..."

[TeQuieroPuta]

Прошу помочь в написании программы по поставленной задаче (слабо понимаю как работать со строками):

Дана строка из слов, содержащих буквы и цифры. Слова разделены пробелами. Удалить из каждого слова цифры. Вывести полученные слова, упорядочив их по убыванию количества входивших в них цифр.

[TeQuieroPuta]

Вроде разобрался как удалить все цифры, а вот с упорядочиванием - нет

Var s:string;
    i:byte;
Begin
    write('Введите строку: ');readln(s);
    For i:=Length(s) downto 1 do
     if (s[i] in ['0'..'9']) then Delete(s,i,1);
    writeln('Полученная строка: ',s);
End.