Дано четырехзначное число. найти число, полученное перестановкой второй и третьей цифры заданного числа. (например, 4567 > 4657)

Var s:string;
a,bug:integer;
n1,n2:char;
begin;
readln(a);
str(a,s);
n1:=s[2];
n2:=s[3];
s[3]:=n1;
s[2]:=n2;
val(s,a,bug);
writeln(a);
end.