как в паскале переставлять в первую и посленюю цифры в числах

a: integer; - твое число

a mod 10 - последняя цифра

как найти первую цифру? нужно в цикле делить (div) на 10, пока не останется что-то 0