По координатам вершин треугольника рассчитать площадь каждого треугольника

program record6;
 
type
   To4ka= record
    x: real;
    y: real;
   end;
   Treug=array[1..10] of To4ka;
var  
  s:array[1..10] of real;
  a,b,c:Treug; 
  a1,a2,b1,b2,c1,c2:real;
  n: 1..10;
  i: byte;
  p:real;
  d1,d2,d3:real;
  max: real;
 
begin
  writeln('введите количество треугольников :');
  readln(n);
  for i:=1 to n do 
  begin
  writeln('введите координаты точек A,B,C ',i,' -го треугольника');
    readln(a[i].x, a[i].y);
    readln(b[i].x, b[i].y);
    readln(c[i].x, c[i].y);
    d1:=sqrt(sqr(a[i].x - b[i].x) + sqr(a[i].y - b[i].y));
    d2:=sqrt(sqr(b[i].x - c[i].x) + sqr(b[i].y - c[i].y));
    d3:=sqrt(sqr(a[i].x - c[i].x) + sqr(a[i].y - c[i].y));
    p:=(d1+d2+d3)/2;
    S[i]:=sqrt(p*(p-d1)*(p-d2)*(p-d3));
    if s[i]>max then
    begin
    max:=s[i];
    a1:=a[i].x;
    a2:=a[i].y;
    b1:=b[i].x;
    b2:=b[i].y;
    c1:=c[i].x;
    c2:=c[i].y;
  end;
  end;
  for i:=1 to n do 
  writeln('площадь ',i,' -го треугольника равна : ',S[i]);
  writeln('координаты вершин треугольника, площадь которого максимальна :');
  write(',А(', a1, ';', a2, '), B(', b1, ';', b2, '), C(', c1, ';', c2,')');
end.

program record6;
type
To4ka=record
      x,y: real;
      end;
Treug=record
      a,b,c:To4ka;
      s:real;
      end;
var
t:array[1..10] of Treug;
a1,a2,b1,b2,c1,c2:real;
n: 1..10;
i: byte;
max: real;
begin
writeln('введите количество треугольников :');
readln(n);
max:=-1;
for i:=1 to n do
 begin
  writeln('введите координаты вершин A,B,C ',i,' -го треугольника');
  with t[i] do
   begin
    readln(a.x,a.y,b.x,b.y,c.x,c.y);
    s:=abs((a.x-c.x)*(b.y-c.y)-(b.x-c.x)*(a.y-c.y))/2;
    if s>max then
     begin
      max:=s;
      a1:=a.x;
      a2:=a.y;
      b1:=b.x;
      b2:=b.y;
      c1:=c.x;
      c2:=c.y;
     end;
  end;
 end;
for i:=1 to n do
writeln('площадь ',i,' -го треугольника равна : ',t[i].s:0:2);
writeln('координаты вершин треугольника, площадь которого максимальна :');
write(',А(',a1:0:2,';',a2:0:2,'), B(',b1:0:2,';',b2:0:2,'), C(',c1:0:2,';',c2:0:2,')');
end.