НАЙДИТЕ ОШИБКУ В ПРОГРАММЕ, СРОЧНО!

program WASD;
var AB,BC,AC,x1,x2,x3,y1,y2,y3,S,P:real;
begin
writeln('ВВЕДИТЕ ВЕРШИНУ A');
readln(x1,y1);
writeln('Введите вершину B');
readln(x2,y2);
writeln('Введите вершину C');
readln(x3,y3);
AB:=sqrt(sqr(x2-x1)+sqr(y2-y1));
BC:=sqrt(sqr(x3-x2)+sqr(y3-y2));
AC:=sqrt(sqr(x3-x1)+sqr(y3-y1));
P:=(AB+BC+AC):2;
S:=sqrt(P*(P-AB)*(P-BC)*(P-AC));
writeln('площадь',S);
end.