Строки - Расположить все буквы данного слова в алфавитном порядке

[Александра Раш]

Задано слово – последовательность произвольных символов.
Составьте программу для решения следующей задачи:

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

[Hacker19_90]

про сортировку методом пузырька к примеру слышали?

[Serge_Bliznykov]

var s : string; 
     ch : char;

  тут ввод s
...
  { отсортируем символы в строке: }
  for i := 1 to length(s) - 1 do begin
      for j := i + 1 to length(s) do
        if s[j] < s[i] then begin
          ch := s[i];
          s[i] := s[j];
          s[j] := ch;
        end;
    end;

[TinMan]

Серж, я бы заметил только, что нужно учесть, что буквы могут (в общем случае) быть большие и маленькие, и в этом сучае твой код даст не совсем верный результат.. Например, слово Mary не изменится совсем, что явно неверно. Конечно, можно сослаться на то, что условие не совсем ясное на этот счет, но все же я бы сделал как-то так (для английского алфавита)

        if s[j] mod 32 < s[i] mod 32 then begin
          ch := s[i];
          s[i] := s[j];
          s[j] := ch;
        end;

[Serge_Bliznykov]

TinMan, согласен с вашим замечанием.

[Александра Раш]

оу спасибо , вроде все работает))))

[s-andriano]

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

Серж, я бы заметил только, что нужно учесть, что буквы могут (в общем случае) быть большие и маленькие, и в этом сучае твой код даст не совсем верный результат.. Например, слово Mary не изменится совсем, что явно неверно. Конечно, можно сослаться на то, что условие не совсем ясное на этот счет, но все же я бы сделал как-то так (для английского алфавита)

        if s[j] mod 32 < s[i] mod 32 then begin
...

Цитирую по заданию "последовательность произвольных символов". Правда, не совсем понятно, на какой именно алфавит следует ориентироваться в этом случае.
Я бы ответственность за это переложил на разработчиков компилятора/библиотек:

        if UpCase(s[j]) < UpCase(s[i]) then begin
...