модуль

[revolteck]

Создать модуль U15, который содержит следующие функции:
a. Функция РТ(integer), которая возвращает 1, если число положительное, 0 - равно нулю, -1 - отрицательное;
b. Процедуру ЕК, которая выводит на экран переданное слово в столбец.
Написать программу, которая подключает разработанный модуль и демонстрирует работу функции и процедуры

вот тут я вообще нечего полностью не понимаю,если можно опишите как сделаете комментарии, что бы разобраться=)благодарю

[spein]

unit U15;
interface
function pt(v:integer):integer;
function ek(str:string):byte;
implementation
function pt(v:integer):integer;
begin
if v < 0 then
pt:=-1
else if v=0 then
pt:=0
else pt:=1
end;
function ek(str:string):byte;
var i:integer;
begin
for i:=1 to length(str) do
writeln(str[i]);
end;
begin
end.