Дана строка, состоящая из русских слов, набранных заглавными ...

Настя

program Slova;usescrt;

varwords : 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[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(tmp); read(tmp);

end.