Создание класса в среде делфи.

[MaxMad]

Имеется вот такое задание для лабораторной:
Рациональная (несократимая) дробь представляется парой целых чисел (а, b), где а — числитель, b — знаменатель. Создать класс Rational для работы с рациональными дробями. Обязательно должны быть реализованы операции:
сложения add, (а, b) + (с, d) = (ad + bc, bd)
вычитания sub, (a, b) - (с, d) = (ad - bc, bd)
умножения mul, (a, b) × (c, d) = (ac, bd)
деления div, (a, b) / (c, d) = (ad, bc)
сравнения equal, greate, less.
Должна быть реализована приватная функция сокращения дроби reduce, которая обязательно вызывается при выполнении арифметических операций.
Подскажите как создать такой класс и как организовать методы, подчеркиваю только подскажите мне не нужен исходник, просто хочется понять самому как это все сделать.

[Somebody]

Не очень понятно, в чём вопрос, но что-то типа

type Rational = class
private:
  a, b: Double;
  procedure Reduce();
public:
  procedure add(c, d: Double);
end;

procedure Rational.Reduce();
begin
  {a и b делить на НОД}
end;

procedure Rational.add(c, d: Double);
begin
  a := a * d + b * c;
  b := b * d;
  Reduce();
end;

[MaxMad]

Что именно не понятно?