Дана строка, состоящая...

Дана строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). Вывести строку (в Pascal),содержащую эти же слова, разделенные одним пробелом и расположенные в алфавитном порядке.

 

program Slova;
uses
crt;

var
words : array[1..100] of string;
wc : integer;
All,currword,tmp : string;
i,j : integer;

begin
 
   clrscr;
 
   wc := 1;
 
   writeln('‚ўҐ¤ЁвҐ б«®ў : '); // 'Введите слова'
 
   read(All);
 
   All := All + chr(32)+ chr(32);
 
    for i := 1 to length(All)-1 do
     begin
       if ord(All) = 32 then
        begin
          if currword <> '' then
            begin
             words[wc] := currword;
             inc(wc);
             currword := '';
            end;
          continue;
        end else
      begin
currword := currword + All;
end;
end;
 
 for i := 1 to wc-2 do
  for j := i + 1 to wc-1 do
   if words > words[j] then
    begin
    tmp := words;
    words := words[j];
    words[j] := tmp;
    end;
 
  writeln('ђҐ§г«мв в: '); // 'Результат'
 
  for i := 1 to wc-1 do
   write(words + ' ');
   
 readln(tmp);
 read(tmp);
end.