Для всей строки поменять символы местами в каждой паре, начиная с начала

var
 s, c: string;
 i: integer;
begin
 s:='sakjdfhajkf';
 i:=1;
 while i<length(s)-1 do
 begin
  c:=s[i];
  s[i]:=s[i+1];
  s[i+1]:=c;
  inc(i, 2);
 end;

procedure TForm1.Button4Click(Sender: TObject);
var s, rez, c : string;
    i : Integer;
begin
 Rez := '';
 if Length(Edit1.Text) mod 2 <> 0
  then begin
        c := copy(Edit1.Text, Length(Edit1.Text), 1);
        s := copy(Edit1.Text, 1, Length(Edit1.Text) - 1);
       end
  else s := Edit1.Text;
  i := 1;
  while  i <= length(s) - 1 do
   begin
    rez := rez + s[i + 1] + s[i];
    i := i + 2;
   end;
  if Length(c) > 0 then Rez := Rez + c;
  Label1.Caption := Rez;
end;

s: string;
c: char;

program Project1;
 
{$APPTYPE CONSOLE}
 
uses SysUtils;
 
var s, rez, c, OurString : string;
    i : Integer;
    key : char;
begin
 rez := '';
 write('Enter Your string: ');
 readln(OurString);
 if Length(OurString) mod 2 <> 0
  then begin
        c := copy(OurString, Length(OurString), 1);
        s := copy(OurString, 1, Length(OurString) - 1);
       end
  else s := OurString;
  i := 1;
  while  i <= length(s) - 1 do
   begin
    rez := rez + s[i + 1] + s[i];
    i := i + 2;
   end;
  if Length(c) > 0 then Rez := Rez + c;
  writeln(Rez);
  write('Press Enter to exit...');
  readln(key);
end.