Поменять местами каждые две буквы в слове - PascalABC.NET

var
  i:integer;
  s:string;
  c:char;
  let:set of char;
begin
  s:=ReadString('Введите строку:');
  i:=1;
  let:=['А'..'Я','Ё','а'..'я','ё','A'..'Z','a'..'z'];
  repeat
    while (i<=length(s)) and not (s[i] in let) do i:=i+1;
    if (i+1<=length(s)) and (s[i+1] in let)then 
      begin
        c:=s[i];
        s[i]:=s[i+1];
        s[i+1]:=c;
        if s[i+1]=UpCase(s[i+1])then begin s[i+1]:=LowCase(s[i+1]);s[i]:=UpCase(s[i]);end;
      end;
      i:=i+2;
  until i>length(s);
  writeln(s);
end.