Помогите с модулем. Создать модуль целочисленная арифметика

[prosto_man]

Создать модуль, описание объектов. Написать программу для демонстрации всех подпрограмм разработанного модуля.

целочисленная арифметика
TNumber = LongInt - тип чисел.
1 ) function GetMaxCD ( A , B : TNumber ) : TNumber ;
Найти наибольший общий делитель двух чисел.
2 ) function GetMinCK ( A , B : TNumber ) : TNumber ;
Найти наибольшее общее кратное двух чисел.
3 ) function GetCountDigit ( A : TNumber ) : Byte ;
Найти количество цифр числа .
4 ) function IsSimple ( A : TNumber ) : Boolean ;
Вернуть значение True , если число А простое .
5 ) function Step ( A , n : TNumber ) : TNumber ;
Вычислить An .
6 ) function IsPalindrom ( A : TNumber ) : Boolean ;
Вернуть значение True , если число А - палиндром (например , 12321 ) .
7 ) procedure WriteDiv ( A : TNumber ) ;
Вывести на экран все делители числа.
8 ) procedure SimpleMult ( A : TNumber ) ;
Разложить число на простые множители и вывести на экран в виде p1 ( n1 ) * p2 ( n2 ) ... pk ( nk ) ,
где pi - простой множитель , ni - показатель степени .