Отобразить дробь - Turbo Pascal

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

Пишу отчет на fastreport, там встроен паскаль, нужна функция, на вход которой можно подать число - размер в дюймах (например, 1.249), на выходе вернется то же число, но дробная часть должна быть представлена в виде дроби через пробел после целой, например так:

Вход	Выход
1.5	1 1/2
2.25	2 1/4
5.75	5 3/4

Естественно на выходе строковая переменная. P.S. Колонка справа - так принято записывать дюймы на западе.

Решение задачи: «Отобразить дробь»

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

function ToQrtrs(n: Real): String;
var p: Integer; s: String;
begin
  p:=Round(Frac(n)*4); n:=Int(n)+p div 4; p:=p mod 4;
  Str(n:0:0,s);
  case p of
  1: s:=s+' 1/4';
  2: s:=s+' 1/2';
  3: s:=s+' 3/4';
  end;
  ToQrtrs:=s;
end;

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

В функции ToQrtrs переменной n присваивается значение Real, которое представляет дробь, которую нужно преобразовать в четверти.
Затем, переменная p инициализируется значением Integer, которое будет использоваться для округления дроби до ближайшего целого числа.
Переменная s инициализируется строкой, которая будет использоваться для хранения преобразованной дроби в виде строки.
Вычисляется дробь n путем деления Frac(n) на 4 и округления результата до ближайшего целого числа с помощью Round. Результат сохраняется в переменной p.
Затем, вычисляется остаток от деления p на 4 с помощью оператора %. Этот остаток будет использоваться для определения последней четверти.
Строка s преобразуется с помощью функции Str(), чтобы представить дробь в виде строки.
Используется оператор case для определения последней четверти на основе значения переменной p.
Если p равно 1, то к строке s добавляется строка ' 1/4'.
Если p равно 2, то к строке s добавляется строка ' 1/2'.
Если p равно 3, то к строке s добавляется строка ' 3/4'.
Значение s присваивается переменной ToQrtrs, которая возвращает результат.
Код завершается, и результат выводится на экран.