Определить периметры трёх треугольников, если заданы координаты их вершин - PascalABC.NET

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

Написать программу решения следующей задачи, используя модуль: Определить периметры трёх треугольников, если заданы координаты их вершин. есть обычное решение задачи,но нужно сделать именно с использованием модуля

                    Листинг программы
                
 
                        
                          
                    
uses crt;
var i,xa,ya,xb,yb,xc,yc: integer;
function Dlina(x1,y1,x2,y2: integer):real;
var d: real; begin d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
Dlina:=d; end;
function Perimetr(a,b,c: real): real;
begin Perimetr:=a+b+c; end;
procedure Vvod (nt: byte; var ax,ay,bx,by,cx,cy: integer);
begin writeln ('Координаты вершины A ',nt,' треугольника');
readln (ax,ay); writeln ('Координаты вершины B ',nt,' треугольника');
readln (bx,by); writeln ('Координаты вершины C ',nt,' треугольника');
readln (cx,cy); end;
begin for i:=1 to 3 do begin Vvod (i,xa,ya,xb,yb,xc,yc);
writeln ('Периметр ',i,' треугольника = ',Perimetr(Dlina(xa,ya,xb,yb),Dlina(xb,yb,xc,yc),Dlina(xc,yc,xa,ya)):0:2);
writeln; end; readkey end.

помогите,никак не могу разобраться с модулями,заранее спасибо!

Решение задачи: «Определить периметры трёх треугольников, если заданы координаты их вершин»

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

unit trg;
interface
function Dlina(x1,y1,x2,y2: integer):real;
function Perimetr(a,b,c: real): real;
procedure Vvod (nt: byte; var ax,ay,bx,by,cx,cy: integer);
implementation
function Dlina(x1,y1,x2,y2: integer):real;
var d: real;
begin
Dlina:=sqrt(sqr(y1-y2)+sqr(x1-x2));
end;
function Perimetr(a,b,c: real): real;
begin
Perimetr:=a+b+c;
end;
procedure Vvod (nt: byte; var ax,ay,bx,by,cx,cy: integer);
begin
writeln ('Координаты вершины A ',nt,' треугольника');
readln (ax,ay);
writeln ('Координаты вершины B ',nt,' треугольника');
readln (bx,by);
writeln ('Координаты вершины C ',nt,' треугольника');
readln (cx,cy);
end;
end.

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

Ввод данных о координатах вершин треугольников
Вычисление длины стороны треугольника по формуле расстояния между двумя точками в декартовой системе координат
Вычисление периметра треугольника по формуле суммы длин его сторон
Вывод результата на экран