Дано двузначное число. Получить число, образованное при перестановки цифр заданного числа

Текст программы на Паскале:varish: integer; //исходное двузначное числоpol: integer; //полученное двузначное числоbeginwriteln (\'Введите исходное двузначное число: \'); readln (ish);pol:= (ish mod 10)* 10; //присваиваем разряду десятков полученного числа значение разряда единиц исходного числа ish:= ish div 10;pol:= pol+ ish; //присваиваем разряду единиц полученного числа значение разряда десятков исходного числаwriteln (\'Полученное двузначное число равно: \', pol);end.