поменять местами символы

[warca]

Как поменять местами 3 и 5 символы в слове?

Program n1;
var i:integer;st:string;
begin
writeln ('введите слово, в котором более 5 символов');
read(st);
for i:= 1 to length(st) do
begin
st[3]:= st[5];
end;
begin
st[3]:=st[3];
end;
writeln ('результат');
writeln(st);
end.

у меня меняется только 3ий на 5ый..

[Leshii]

Ну так и будет, если сам внимание не обратиш вот на это

st[3]:=st[3];

[Leshii]

q: char;
....
q:=s[3];
s[3]:=s[5];
s[5]:=q;

а вообще попробуй вот это...

[Hacker19_90]

Как поменять местами 3 и 5 символы в слове?

    s[3] := chr(ord(s[3]) xor ord(s[5]));
    s[5] := chr(ord(s[3]) xor ord(s[5]));
    s[3] := chr(ord(s[3]) xor ord(s[5]));

[Stilet]

Через временную переменку типа char

var c:char;
...
c:=st[3];st[3]:=st[5];st[5]:=c;

[warca]

спасибо большое