дано натуральное четырехзначное число. Найти число ,полученное перестановкой 2 и 3 цифр заданного числа

 var s :string;f:char; begin write('Введите четырехзначное число '); readln(s); f:= s[3]; s[3]:= s[2];  s[2]:= f; write('число = ',s); end.