Вывести строку, содержащую те же слова, что исходная строка, но расположенные в алфавитном порядке

uses
  crt;
var
  words : array[1..100] of string;
  wc : integer;
  All,currword,tmp : string;
  i,j : integer;
begin
  clrscr;
  wc := 1;
  writeln('Введите текст : ');
  readLn(All);
  All := All + chr(32)+ chr(32);
  for i := 1 to length(All)-1 do
    begin
      if ord(All[i]) = 32 then
        begin
          if currword <> '' then
            begin
              words[wc] := currword;
              inc(wc);
              currword := '';
            end;
          continue;
        end
          else
            begin
              currword := currword + All[i];
            end;
    end;
  for i := 1 to wc-2 do
    for j := i + 1 to wc-1 do
      if words[i] > words[j] then
        begin
          tmp := words[i];
          words[i] := words[j];
          words[j] := tmp;
        end;
  writeln('Полученный текст: ');
  for i := 1 to wc-1 do
    write(words[i] + ' ');
  readln;
end.