Задача на вычисление высоты в треугольнике

[проФан]

И опять с вопросом.
Не знаю, что делаю не так. Подскажите пожалуйста.
Задача:
Вводятся координаты трёх точек треугольника в пространстве А, Б, С. Найти значение высоты опущенной из точки С на сторону А Б (или на её продолжение) с точностью три знака после запятой.
Входные данные: вещественные значения координат
Выходные данные: значение высоты


Program visota;
var
S, x1, x2, x3, y1, y2, y3, z1, z2, z3, A, B, C, p, h : real;
begin
writeln ('задать A');
readln (x1, y1, z1);
writeln ('задать B');
readln (x2, y2, z2);
writeln ('задать C');
readln (x3, y3, z3);
A:= sqrt(sqr(x3-x2) +sqr(y3-y2) +sqr(z3-z3));
B:= sqrt(sqr(x2-x1) +sqr(y2-y1) +sqr(z2-z1));
C:= sqrt(sqr(x3-x1) +sqr(y3-y1) +sqr(z3-z1));
P:= (A +B +C)/2;
S:= sqr(P*(P-A)*(P-B)*(P-C));
h:= 2*S/C;
writeln (h);
readln
end.

[Dush]

геометрию не помню, но может вы ошиблись вот здесь:
A:= sqrt(sqr(x3-x2) +sqr(y3-y2) +sqr(z3-z3));