Перестановка символов в обратном порядке.

[Zeronim]

Здраствуйте.
Можете подсказать как переставить символы в слове так , чтобы они получились в обратном порядке?
Допустим из '345678' должно получиться '876543'.
Длина слова может быть разной.
Все это на delphi 7 в консольном приложении.
Заранее спасибо.

[Alex Cones]

S2 := '';
For I:=Length(S1) downto 1 Do
S2 := S2 + S1[I];
S1 := S2;

[Alter]

Ещё так, цикл в два раза меньше

procedure TForm1.Button2Click(Sender: TObject);
var
  I,II,L :Integer;
  Txt :string; // копируем входной текст сюда
  Buf :Char;
begin
 Txt := Edit3.Text; // входной текст
 L := Length(Txt);
 II := L div 2;
 IF II > 0 then
 for I := 1 to II do
 begin
  Buf := Txt[I];
  Txt[I] := Txt[L - I + 1];
  Txt[L - I + 1] := Buf;
 end;
  Edit4.Text := Txt; // выводим сюда результат
end;