Разделить строку на три части и перемешать их - Turbo Pascal

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

Дана произвольная строка, разделить ее на 3 части и поменять их таким образом 2-3-1 Кто может подскажите пожалуйста)) Заранее спасибо!

Решение задачи: «Разделить строку на три части и перемешать их»

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

var
 S: String[30];
begin
 S := '0123456789АБВГДЕЖЗИКqwertyuiop';
 WriteLn(S);
 S := Copy(S, 11, 10) + Copy(S, 21, 10) + Copy(S, 1, 10);
 WriteLn(S);
 ReadLn;
end;

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

В начале объявляется переменная S типа String[30], которая будет использоваться для хранения строки.
Затем в S записывается строка '0123456789АБВГДЕЖЗИКqwertyuiop'.
Выводится на экран содержимое переменной S.
Далее, используя функции Copy, происходит разделение исходной строки на три части: первая часть копируется из позиции 11 до позиции 20, вторая часть копируется из позиции 21 до позиции 30, третья часть копируется из позиции 1 до позиции 10.
Полученные части объединяются в одну строку.
Выводится на экран полученная строка.
Запускается цикл чтения символов до тех пор, пока не будет нажата клавиша Enter.
В конце программы выводится символ новой строки для завершения вывода.