Модуль: Найти сумму площадей трёх треугольников, если известны длинны их сторон

Program REC1;
Var
   a1,a2,a3:integer; // Длины сторон первого(1) треугольника
   b1,b2,b3:integer; // Длины сторон второго(2) треугольника
   c1,c2,c3:integer; // Длины сторон третьего(3) треугольника
   geron1:real; // Площадь
   geron2:real; // Площадь
   geron3:real; // Площадь
   p1,p2,p3:integer; // Полупериметр трех треугольников
   summa:real; // Сумма площадей треугольников
Begin
{Вводим данные о треугольниках}
Writeln('Введи длины сторон первого треугольника(через запятую):');
Readln(a1,a2,a3);
Writeln('Введи длины сторон второго треугольника(через запятую):');
Readln(b1,b2,b3);
Writeln('Введи длины сторон третьего треугольника(через запятую):');
Readln(c1,c2,c3);
 
p1:= (a1+a2+a3) div 2; // Полупериметр первого треугольника
p2:= (b1+b2+b3) div 2; // Полупериметр второго треугольника
p3:= (c1+c2+c3) div 2; // Полупериметр третьего треугольника
 
Writeln('Полупериметр первого треугольника равен ' ,p1);
Writeln('Полупериметр второго треугольника равен ' ,p2);
Writeln('Полупериметр третьего треугольника равен ' ,p3);
 
geron1:=SQRT(p1*(p1-a1)*(p1-a2)*(p1-a3));
geron2:=SQRT(p2*(p2-b1)*(p2-b2)*(p2-b3));
geron3:=SQRT(p3*(p3-c1)*(p3-c2)*(p3-c3));
 
summa:= geron1+geron2+geron3;
Writeln('Сумма площадей равна ' ,summa);
End.

unit myunit;
 
interface
uses crt;
function Square (a,b,c: real): real;
 
implementation
 
function Square (a,b,c: real): real;
var sq: real;
begin
if ((b+c-a)<=0) or ((a+c-b)<=0) or ((a+b-c)<=0) then writeln('Вычисление площади невозможно') else
   begin
   sq:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
   Square:=sq;
   end;
end;
 
end.

uses crt,myunit;
var da,db,dc,sum: real;
    i: byte;
 
begin
sum:=0;
for i:=1 to 3 do
    begin
    writeln('Укажите стороны ',i,' треугольника');
    readln(da,db,dc);
    writeln('Площадь ',i,' треугольника=',Square (da,db,dc):0:2);
    sum:=sum+Square (da,db,dc);
    end;
writeln('Суммарная площадь треугольников=',sum:0:2);
end.