Пожалуйста помогите, но не из Интернета, там вроде не правильно

Var
xa,ya,xb,yb,xc,yc: integer;
A,B,C,p: real;
Begin
Write('xa = ');ReadLn(xa);
Write('ya = ');ReadLn(ya);
Write('xb = ');ReadLn(xb);
Write('yb = ');ReadLn(yb);
Write('xc = ');ReadLn(xc);
Write('yc = ');ReadLn(yc);
//Вычислим длины сторон по теореме Пифагора
A := sqrt(sqr(xa-xb)+sqr(ya-yb));
B := sqrt(sqr(xb-xc)+sqr(yb-yc));
C := sqrt(sqr(xc-xa)+sqr(yc-ya));
//Теперь вычислим площадь по формуле Герона
p := (A+B+C)/2;
WriteLn('S = ',sqrt(p*(p-A)*(p-B)*(p-C)));
End.