Помогите с задачкой, пожалуйста.

Должен быть так ща перепроверюvar x:integer; begin writeln(Введите четырехзначное число); read(x); x:=x mod 10*1000+x div 100 mod 10*100+x div 10 mod 10*10+x div 1000; writeln(Число после перестановки 1-й и 4-й цифры = ,x); end.