Здравствуйте, roma5310!

В приложении, код, который буквы распологает в начале строки, цифры в конце строки, отсортированные по возрастанию.
Я так понял условие:

а потом все цифры слова в прямом порядке.

[code lang=pascal h=200]var
a:string;
i:integer;
{
обрабатываем слово: буквы в начало, цифры в конец строки отсортированные по возрастанию
}
function z(b:string):string;
var
c:char;
i:integer;
begin
i:=0;
repeat
inc(i);
while(b[i]in['0'..'9'])and((b[i+1]in ['A'..'Z','a'..'z'])or{сортировка буквы цифры}
((b[i+1]in['0'..'9']))and(b[i]>b[i+1]))do{сортировка по возрастанию цифр}
begin
c:=b[i];
b[i]:=b[i+1];
b[i+1]:=c;
i:=0;
end;
until i>length(b);
z:=b;
end;
{
выделяем слово рекурсивно и обрабатываем, пока длина строки не равна нулю
}
function y(b:string):string;
begin
if pos(' ',b)>0 then y:=z(copy(b,1,pos(' ',b)))+y(copy(b,pos(' ',b)+1,length(b)))
else y:=z(copy(b,1,length(b)));
end;
begin
{
вводим строку
}
repeat
write('Enter string:');
readln(a);
until length(a)>0;
{
заменяем знаки препинания на пробелы
}
i:=1;
while(pos(a[i],'.,;:^&')>0)do
begin
if pos(a[i],'.,;:^&')>0 then a[i]:=' ';
inc(i);
end;
{
удаляем начальные пробелы
}
while a[1]=' ' do delete(a,1,1);
{
удаляем двойные пробелы
}
while pos(' ',a)>0 do delete(a,pos(' ',a),1);
{
выводим результат
}
write('result:',y(a));
end.[/code]
Удачи!