Определить большую из площадей треугольников, заданных длинами сторон (подпрограммы) - Free Pascal

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

Даны длины сторон 2-ух треугольников .Определите большую площадь.(Помогите,пожалуйста,решить)

А и еще в качестве подпрограммы взять для нахождения площади-формулу Герона.

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

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

function Geron(const aA, aB, aC : real): real;
var p, s: Real;
begin
  p:=(aA + aB + aC)/2;
  Geron:=SqRt(p*(p - aA)*(p - aB)*(p - aC));
end;
var a, b, c, p1, p2: Real;
begin
  Write('a1 b1 c1: '); ReadLn(a,b,c); p1:=Geron(a,b,c);
  Write('a2 b2 c2: '); ReadLn(a,b,c); p2:=Geron(a,b,c);
  Writeln('Площадь 1 треугольника равна ', p1:6:4);
  Writeln('Площадь 2 треугольника равна ', p2:6:4);
  if p1>p2 then WriteLn('Площадь 1 больше')
  else if p1<p2 WriteLn('Площадь 2 больше')
  else WriteLn('Площади равны');
  Write('Нажмите Enter...'); ReadLn;
end.

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

В функции Geron(const aA, aB, aC : real): real; определяются переменные p и s типа Real.
Значение переменной p вычисляется как сумма aA, aB и aC, делённая на 2: p:=(aA + aB + aC)/2;
Значение переменной Geron вычисляется как квадратный корень из произведения p на разности (p — aA), (p — aB) и (p — aC): Geron:=SqRt(p(p — aA)(p — aB)*(p — aC));
В основной программе определяются переменные a, b, c, p1 и p2 типа Real.
Пользователю предлагается ввести значения a1, b1 и c1 для первого треугольника, и значения a2, b2 и c2 для второго треугольника.
Значения a, b и c запрашиваются у пользователя с помощью команды WriteLn(a, b, c);
Для вычисления площади каждого треугольника вызывается функция Geron с соответствующими аргументами: p1:=Geron(a,b,c); и p2:=Geron(a,b,c);
С помощью команды Writeln('Площадь 1 треугольника равна ', p1:6:4); выводится площадь первого треугольника с точностью до 4 знаков после запятой.
Аналогично, с помощью команды Writeln('Площадь 2 треугольника равна ', p2:6:4); выводится площадь второго треугольника с точностью до 4 знаков после запятой.
С помощью условного оператора if проверяется, является ли площадь первого треугольника больше площади второго.
Если p1 больше p2, то выводится сообщение Площадь 1 больше.
Если p1 меньше p2, то выводится сообщение Площадь 2 больше.
Если площади равны, то выводится сообщение Площади равны.
В основной программе выводится приглашение для нажатия клавиши Enter с помощью команды WriteLn('Нажмите Enter...');
Программа завершается после чтения значения из стандартного ввода с помощью команды ReadLn;