Двухзначное число - Free Pascal

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

Дано:двухзначное число а Какая цифра больше,первая или вторая? Я работаю в делфи 7 Полное решение!!!!!!!!!!!!!!!!!

Решение задачи: «Двухзначное число»

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

program prog;
 
var
  a: integer;
  first, second: integer;
begin
    Write('число: ');
    ReadLn(a);
 
    a:= Abs(a);
 
    if (a >= 10) and (a <= 99) then begin
        first:= a div 10;
        second:= a mod 10;
        if first < second then WriteLn('первая цифра < второй')
        else if first > second then WriteLn('первая цифра > второй')
        else WriteLn('цифры равны');
    end
    else WriteLn('введённое число не является двухзначным');
 
    ReadLn;
end.

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

Список элементов:

Объявление переменной a типа integer.
Ввод числа с клавиатуры и сохранение его в переменной a.
Приведение числа к абсолютному значению.
Проверка диапазона числа (больше или равно 10 и меньше или равно 99).
Разделение числа на две цифры: первую (десятичную) и вторую (единичную).
Сравнение цифр и вывод соответствующего сообщения.
Если число не попадает в диапазон двухзначных чисел, выводится сообщение об ошибке.
Завершение работы программы и ожидание нажатия клавиши.