Tính Khoảng cách trong hình học bằng TP

Tính khoảng cách từ một điểm đến một đường thẳng và tính
khoảng cách giữa 2 đường thẳng chéo nhau trong không gian
program khoang_cach;
uses crt;
var u1,u2,u3,d1,d2,d3:real;
m1,m2,m3,a1,a2,a3:real;
x,y,z,x1,y1,z1:real;
n:byte;
begin
clrscr;
Writeln('Chon 1 trong cac cong viec sau');
writeln('1. Tinh khoang cach tu mot diem den mot duong thang');
writeln('2. Tinh khoang cach giua hai duong thang cheo nhau');
repeat
writeln('Go 1 hoac 2 va Enter: ');readln(n);
until (n=1)or(n=2);
Case n of
1: begin
write('Vecto chi phuong cua dung thang la: ');readln(u1,u2,u3);
write('Nhap toa do 1 diem duong thang di qua: ');readln(m1,m2,m3);
write('Nhap toa do diem can tinh khoang cach: ');readln(A1,a2,a3);
{tinh vecto MA}
x:= a1-m1;
y:=a2-m2;
z:=a3-m3;
Writeln('Vecto MA = (',x:10:5,'; ',y:10:5,'; ',z:10:5,')');
{tinh tich co huong [u,MA]}
x1:=u2*z-u3*y;
y1:=u3*x-u1*z;
z1:=u1*y-u2*x;
Writeln('Tich co huong [u,MA] = (',x1:10:5,'; ',y1:10:5,'; ',z1:10:5,')');

{tinh khoang cach = |[u,MA]|/|u|}
Writeln(' d(A,d) = ',sqrt(x1*x1+y1*y1+z1*z1)/sqrt(u1*u1+u2*u2+u3*u3):10:5);
end;
2: begin
write('Vecto chi phuong cua duong thang d1 la: ');readln(u1,u2,u3);
write('Vecto chi phuong cua duong thang d2 la: ');readln(d1,d2,d3);
writeln;
write('Nhap toa do mot diem thuoc d1: ');readln(m1,m2,m3);
write('Nhap toa do mot diem thuoc d2: ');readln(a1,a2,a3);
{tinh tich co huong [u,d]}
x:=u2*d3-u3*d2;
y:=u3*d1-u1*d3;
z:=u1*d2-u2*d1;
Writeln('Vecto [u,d] = (',x:10:5,'; ',y:10:5,'; ',z:10:5,')');
{tinh tich [u,d].MA}
x1:=x*(a1-m1); y1:=y*(a2-m2); z1:= z*(a3-m3);
{tinh khoang cach d(d1,d2) = |[u,d].MA|/|[u,d]|}
writeln(' d[d1,d2] = ',sqrt(x1*x1+y1*y1+z1*z1)/sqrt(x*x+y*y+z*z):10:5);
end;end;
readln
end.
Nhập đầy đủ các dữ kiện, Chương trình sẽ tính khoảng cách và xuất kết
quả dạng số thập phân.
10:5 điểm chính tả, điểm chữ viết.