Переставить все буквы латинского алфавита в начало строки в порядке следования.

[zaq2000]

В результате должно быть:

Например ввод: 5adcz 2 d
Вывод: acddz 5 2

Пожалусто помогите!

[alex_fcsm]

Пост №5 делает это

[zaq2000]

что то у меня неполучается этот результат!

[alex_fcsm]

Сообщение от zaq2000

В результате должно быть:

Например ввод: 5adcz 2 d
Вывод: acddz 5 2

Пожалусто помогите!

Результат:adczd5 2
Что Вас не устраивает? Все буквы сохраняют первоначальный порядок

[zaq2000]

Мне надо что бы буквы по алфавиту строились!

[Serge_Bliznykov]

а что, исходное условие уже изменилось?!
было же "Переставить все буквы латинского алфавита в начало строки в порядке следования."!

[zaq2000]

Просто в порядке следования имеется в виду что по алфавиту.

[Serge_Bliznykov]

zaq2000
Думаю, что Вы ошибаетесь.
ну, не проблема:

var
  i,k : integer;
  s,s2,s3 : string;
begin
  WriteLn;
  Writeln('Введите строку');
  ReadLn(s);
{  s := 'y5adcz 2a da';}
  s2 :=''; {обнулили результирующую строчку с латиницей}
  s3 :=''; {обнулили резултьтирующую строчку для прочих}
  for i:=1 to Length(s) do
    if s[i] in ['a'..'z','A'..'Z'] then
     begin
       {ищем место для буквы по алфавиту - сортировка на лету!}
       if Length(s2)=0 then s2 := s[i]
       else begin
         k := 1;
         while (k <= Length(s2)) do
         begin
           if (s[i]<=s2[k]) then begin Insert(s[i],s2,k); Break end;
           if k=Length(s2) then begin s2 := s2 + s[i]; Break end;
           inc(k);
         end
       end
     end
     else s3 := s3 + s[i];

  s := s2 + s3;
  WriteLn('Результат: ',s);
end.