Задачка: составить программку которая из данного четырехзначного числа получает новое

Работает на Pascal ABC

(Решил чтоб при вводе и выводе было число,а в процессе решил перевести строчный тип,чтоб было быстрее)

var

 ch:longint;

 chs:string;

begin

 read(ch);

 chs:=inttostr(ch);

 swap(chs[1],chs[4]);

 swap(chs[2],chs[3]);

 writeln(strtoint(chs));

end.