Задано N Треугольников координатами своих вершин на плоскости. Напечатать номер треугольника с наибольшей площадью. Вычисление сторон и площадей организовать с помощью функций, воспользовавшись формулами длины отрезка и Герона — Pascal(Паскаль)

uses crt;
var x1,y1,x2,y2,x3,y3: word; a,b,c,p,s,max: real; i,j,n: byte;
begin
clrscr;
write('введите кол-во треугольников: ');
read(n);
max:=0;
for i:=1 to n do
begin
writeln('введите координаты вершин ',i,'-ого треугольника: ');
write('x1: '); read(x1);
write('y1: '); read(y1);
write('x2: '); read(x2);
write('y2: '); read(y2);
write('x3: '); read(x3);
write('y3: '); read(y3);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
if s>max then
begin
max:=s;
j:=i;
end;
end;
write('наибольшую площадь имеет ',j,'-й треугольник');
end.