Помогите с задачей в Delphi пожалуйста!

[SfSpawN]

Работа со строками.Написать программу которая заполняет каждый символ строки введенный пользователем следующим образом.Символы меняются попарно(например 1 на 2 , 3 на 4 и так далее) если в строке нечетное число символов то последний символ не менять.

[Serge_Bliznykov]

s := Edit1.Text;
LenS := Length(s);
if odd(LenS) then Dec(LenS);
if LenS >= 2 Then begin
  for i:=1 to LenS-1 do begin
    TempS := s[i];
    s[i] := s[i+1];
    s[i+1] := TempS;
  end;
  Edit1.Text := s;
end;