Как это записать в модулях ?

uses crt;
var xa,ya,xb,yb,xc,yc,i: integer;
    x,y,z,sq: real;
 
procedure Dlina(x1,y1,x2,y2: integer; var d:real);
begin
d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
end;
 
function Exist (a,b,c: real): boolean;
begin
Exist:=((b+c-a)>0) and ((a+c-b)>0) and ((a+b-c)>0);
end;
 
procedure Square (a,b,c: real; var s: real);
begin
s:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
end;
 
begin
writeln ('Введите координаты 1 вершины треугольника');
readln (xa,ya);
writeln ('Введите координаты 2 вершины треугольника');
readln (xb,yb);
writeln ('Введите координаты 3 вершины треугольника');
readln (xc,yc);
Dlina(xa,ya,xb,yb,x);
Dlina(xb,yb,xc,yc,y);
Dlina(xc,yc,xa,ya,z);
if Exist (x,y,z) then
   begin
   Square (x,y,z,sq);
   writeln('Площадь треугольника=',sq:0:2)
   end else writeln('Вычисление площади треугольника невозможно');
end.

unit modul;
interface
procedure Dlina(x1,y1,x2,y2: integer; var d:real);
function Exist (a,b,c: real): boolean;
procedure Square (a,b,c: real; var s: real);
 
implementation
procedure Dlina(x1,y1,x2,y2: integer; var d:real);
begin
d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
end;
 
function Exist (a,b,c: real): boolean;
begin
Exist:=((b+c-a)>0) and ((a+c-b)>0) and ((a+b-c)>0);
end;
 
procedure Square (a,b,c: real; var s: real);
begin
s:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
end;
end.

uses crt,modul;
var xa,ya,xb,yb,xc,yc,i: integer;
    x,y,z,sq: real;
begin
writeln ('Введите координаты 1 вершины треугольника');
readln (xa,ya);
writeln ('Введите координаты 2 вершины треугольника');
readln (xb,yb);
writeln ('Введите координаты 3 вершины треугольника');
readln (xc,yc);
Dlina(xa,ya,xb,yb,x);
Dlina(xb,yb,xc,yc,y);
Dlina(xc,yc,xa,ya,z);
if Exist (x,y,z) then
   begin
   Square (x,y,z,sq);
   writeln('Площадь треугольника=',sq:0:2)
   end else writeln('Вычисление площади треугольника невозможно');
end.