Процедуры и функции

[Настя93]

Помогите пожалуйста написать программу!!!!
Надо предусмотреть использование процедуры и функции.
Дано: одномерный массив содержит тройки чисел, определяющих стороны треугольника. Определить суммарную площадь всех треугольников

[Don Karleone]

type
  Treug = record
    a, b, c: word;
  end;

type
  Tmas = array [1..3] of Treug;

var
  Trg: Tmas;  // массив для трех треугольников
  i: integer;

// функция подсчета общей площади треугольников
function Geron(mas: Tmas): real;
var
  P, S, Sum : real;
  i         : integer;
begin
  Sum:=0;
  for i:=1 to High(mas) do
      begin
          with mas[i] do
              begin
                  P:=0.5 * (a + b + c);
                  S:=Sqrt(P*(P - a)*(P - b)*(P - c));
                  Sum:=Sum + S;
              end;
      end;
  Geron:=Sum;
end;

begin
  // вводим данные для каждого треугольника
  for i:=1 to 3 do
      with Trg[i] do
          begin
              write('a = ');
              readln(a);
              write('b = ');
              readln(b);
              write('c = ');
              readln(c);
          end;
  writeln('Sum = ',Geron(Trg):1:3);
  readln;
end.

[Настя93]

Огромное спасибо!!!!!!!!!!!!!!