[Hronosomg]

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

[Hronosomg]

Как организовать непосредственно перестановку слов?

[Bargest]

Разбить на массив слов, отсортировать, вывести.

[Hronosomg]

Сообщение от Bargest

Разбить на массив слов, отсортировать, вывести.

Это я прекрасно понял... Можно немного конкретики?)

Я не понимаю как организовать цикл проверки

[lmikle]

Ну, типа так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

unit Unit1;   interface   uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;   type   TForm1 = class(TForm)     Edit1: TEdit;     Button1: TButton;     Memo1: TMemo;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var   sl : TStringList; begin   sl := TStringList.Create;   sl.Delimiter := ' ';   sl.DelimitedText := Edit1.Text;   sl.Sort;   Memo1.Lines.Text := sl.Text;   sl.free; end;   end.