Делфи, программа по перестановке местами слов в строке

[reijii_nia]

Составить программу, которая выводит все слова строки в обратном порядке. В общем я ее сделал...но она выводит только первое слово...я не знаю что я сделал не так...помогите пожалуста...

var
  Form1: TForm1;
  s,s1,s2:string;
  i:byte;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Items.LoadFromFile('1.txt');
end;



procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
Combobox1.Items.Add(Combobox1.text);
combobox1.Items.SaveToFile('1.txt');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=0 to combobox1.items.count do
s2:=s2+combobox1.Items[i]+' ';
begin
i:=pos(' ',s2);
s1:=copy(s2,1,i)+s1;
delete(s2,1,i);
end;
memo1.lines.add(s1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

[Stilet]

Составить программу, которая выводит все слова строки в обратном порядке.

Предложу свое видение реверсирования строки:

function RevWords(s:String):String;
var i:integer;
begin
 Result:='';
 with TStringList.Create do begin
  DelimitedText:=s;
  for i:=0 to Count-1 do Result:=Strings[i]+' '+Result;
  free;
 end;
end;

В функцию передается строка, и возвращается ее реверсированный вариант.

[reijii_nia]

к сожалению я уже пробовал ставить функции но сказали что пользоваться только процедурами...типа мы их еще не проходили...
так что не подойдет этот вариант

[newerow1989]

Для одной строки программа будет выглядеть так:

procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
    s1,s2:string;
begin
   s1:=' '+Edit1.Text;
   s2:='';
   k:=0;
   For i:=Length(s1) downto 1 do
      If s1[i]=' ' then
      begin
         If s2<>'' then
            s2:=s2+' ';
         s2:=s2+Copy(s1,i+1,k);
         k:=0;
      end else
         k:=k+1;
   Label1.Caption:=s2;
end;

Сойдет?

[Аватар]

сказали что пользоваться только процедурами

объяви так: procedure RevWords(s:String; var sout: String);
и замени в коде result на sout и этот вариант подойдет как миленький. Только не говори, что var параметры еще не проходили