Проверка чисел на равенство - Turbo Pascal

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

Как в данной программе сделать так, чтобы при проверке на одинаковые цифры выводилось не тру и flase, а например, одинаковые или не одинаковые.

program testing;
var n:integer;
begin
writeln ('Г‚ГўГҐГ¤ГЁГІГҐ Г*Г*ГІГіГ°Г*Г«ГјГ*Г®ГҐ Г·ГЁГ±Г«Г® ');
readln (n);
if (10<=n)and(n<=99) then writeln (n mod 10=n div 10)
else writeln('ГЌГҐ 2-Гµ Г§Г*Г*Г·Г*Г®ГҐ');
end.

Решение задачи: «Проверка чисел на равенство»

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

var 
 similar: boolean;
{...}
similar := (n mod 10) = (n div 10);
if similar then
 write('одинаковые')
else
 write('не одинаковые');
{...}

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

Переменная similar инициализируется значением true.
Выполняется проверка n mod 10 = n div 10. Это условие проверяет, является ли остаток от деления числа n на 10 равным самому числу n, делённому на 10. Если это условие истинно, то переменная similar устанавливается в значение true.
Если similar равно true, то выводится строка одинаковые.
Если similar равно false, то выводится строка не одинаковые.