Дано четырёхзначное число. Найти число, образованное обменом первой и второй пар цифр этого числа - Turbo Pascal

Формулировка задачи:

Дано четырёхзначное число. Найти число, образованное обменом первой и второй пар цифр этого числа. Например, из числа 4566 получить 6645. Помогите Люди, не могу понять как это сделать

Решение задачи: «Дано четырёхзначное число. Найти число, образованное обменом первой и второй пар цифр этого числа»

Листинг программы

var
s,s1:string;
begin
Write('четырех значное число:... ');
readLn(s);
s1:=s[3]+s[4]+s[1]+s[2];
WriteLn('Новое=',s1);
readln;
end.

Объяснение кода листинга программы

В данном коде на Turbo Pascal происходит следующее:

Объявляются две переменные типа string: s и s1.
Выводится сообщение для ввода четырехзначного числа.
С помощью функции readLn считывается введенное пользователем число и сохраняется в переменной s.
С помощью оператора [ ] происходит формирование новой строки s1, в которую записываются цифры третьей, четвертой, первой и второй соответственно.
Выводится на экран полученное число s1.
С помощью функции readln считывается подтверждение ввода и осуществляется выход из программы.