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

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 begincurrword: =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.