Реализовать в виде модуля подпрограмму определения отношения дробей «больше или равна» - Pascal ABC

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

Помогите с решением задачи.Реализовать в виде модуля подпрограмму определения отношения дробей «больше или равна». Внизу образец

unit droby; 
interface
type
nat=1..high(longint);
frac=record
p:longint;
q:nat
end;
procedure summa(a,b:frac;var c:frac);
function bolshe(a,b:frac):boolean;
implementation
procedure summa; {сумма дробей}
begin
c.q:=(a.q*b.q); {знаменатель}
c.p:=a.p*b.q+b.p*a.q; {числитель}
end;
function bolshe; {1-я дробь больше 2-ой}
begin
bolshe;=a.p*b.q>b.p*a.q;
end;
begin;
end.

Основная программа, использующая модуль Droby:

Program sum_drob;
uses crt;
Var a:array[1..100] of frac;
N,i:longing;
S:frac:
Begin
Writeln(`введите число элементов массива`);
Readln(n);
s.p:=0;s.q=1;
for i:=1 to n do
begin
write(`введите числитель`); readln(a[i].p);
write(`введите знаменатель`); readln(a[i].q);
summa(a[i],s,s);
end;
writeln(`сумма=`,s.p,`/`,s.q);
end.

Решение задачи: «Реализовать в виде модуля подпрограмму определения отношения дробей «больше или равна»»

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

unit droby;
interface
type nat=1..maxint;
     frac=record
          p:integer;
          q:nat
          end;
function bolshe_ravno(a,b:frac):boolean;
implementation
function bolshe_ravno(a,b:frac):boolean; {1-я дробь больше или равна 2-ой}
begin
bolshe_ravno:=a.p*b.q>=b.p*a.q;
end;
begin;
end.

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

В данном коде описывается модуль droby, который содержит одну функцию bolshe_ravno. Эта функция принимает два аргумента типа frac (дробь) и возвращает логическое значение true, если первая дробь больше или равна второй, и false в противном случае. Внутри функции используется свойство равенства двух дробей, которое гласит, что если a.pb.q равно b.pa.q, то a и b являются равными. Используя это свойство, функция сравнивает произведения числителей и знаменателей дробей. Если произведение числителей больше или равно произведению знаменателей, то функция возвращает true, иначе - false. Код начинается с объявления типа nat, который представляет целые числа от 1 до maxint. Затем объявляется тип frac, который представляет дроби. В этом типе объявляются две переменные - p и q, которые представляют числитель и знаменатель дроби соответственно. Функция bolshe_ravno принимает две дроби в качестве аргументов и возвращает логическое значение. Внутри функции используется переменная bolshe_ravno, которая хранит результат сравнения дробей. Код завершается точкой end; после функции bolshe_ravno.