[lmikle]

Дык вложенным циклом же ж...

Код:

function Swap(var S : String; I, J : Integer);
var
  ch : char;
begin
  ch := S[i];
  S[i] := S[J];
  S[J] := ch;
end;

...

S := 'mama myla ramy';

// Standard bubble sort
For i := 1 To Length(S)-1 Do
  For j := i+1 To Length(S) Do
    If S[i]>S[j] Then Swap(S,i,j);