Получить перевертыш целого четырехзначного числа n - Pascal ABC

Формулировка задачи:

Напишите программу, чтобы получить перевертыш целого четырехзначного числа n, введенного пользователем (вспомните, как разбить число на разряды с помощью операций div и mod)?

Решение задачи: «Получить перевертыш целого четырехзначного числа n»

Листинг программы

program moddiv;
var
j,i:integer;
FS,S:string;
begin
write(' Enter number : ');
read(i);
S:='';
j:= i mod 100;FS:=IntToStr(j);S:=FS;
writeln(S);
if(j<0)then begin j:= i mod 10;FS:=IntToStr(j);S:=FS;
writeln(S);end;
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных j, i и S, которые будут использоваться в дальнейшем.
Затем программа запрашивает у пользователя ввод числа и сохраняет его в переменной i.
Строка S инициализируется пустой строкой.
Переменная j инициализируется как остаток от деления числа i на 100. Это позволяет получить последние четыре цифры введенного числа.
Функция IntToStr преобразует число j в строку. Результат сохраняется в переменной S.
Программа выводит на экран число S.
Если число j отрицательное, то переменная j инициализируется как остаток от деления числа i на 10. Это позволяет получить первые четыре цифры введенного числа.
Функция IntToStr преобразует число j в строку. Результат сохраняется в переменной S.
Программа выводит на экран число S.
Программа завершается.