Поменять местами первую и последнюю цифру в 4-х значном числе на pascal ABC

Предыдущий
вопрос Следующий
вопрос

var number, firstDigit, lastDigit, newNumber : integer;
begin
// Вводим 4-х значное число
write('Введите 4-х значное число: ');
readln(number);

// Вычисляем первую и последнюю цифру
firstDigit := number div 1000;
lastDigit := number mod 10;

// Формируем новое число
newNumber := lastDigit 1000 + (number mod 1000) div 10 10 + firstDigit;

// Выводим новое число
writeln('Число после замены: ', newNumber);
end.