不知道以下pascal程序错在哪里了，请帮忙检查一下，谢谢！

题目是判断四边形是什么形状的？

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
type
point=record
xcoo:real;
ycoo:real;
end;
var
lenAB,lenBC,lenAD,lenAC,lenBD,lenCD:real;
point_A,point_B,point_C,point_D:point;

function sqr(m:real):real;
function sqrt(n:real):real;

function length(point1,point2:point):real; {求边长}
var
len:real;
begin
with point2 do
begin
len:=sqrt(sqr(point1.xcoo-point2.xcoo)+sqr(point1.ycoo-point2.ycoo));
write(point1.xcoo:8:2,point1.ycoo:8:2);
writeln(point1.xcoo:8:2,point2.ycoo:8:2);
length:=len;
end;
end;

begin
writeln('输入点A与点B坐标');
readln(point_A.xcoo,point_A.ycoo,point_B.xcoo,point_B.ycoo);
lenAB:=length(point_A,point_B);
writeln('输入点C的坐标');
readln(point_C.xcoo,point_C.ycoo);
lenBC:=length(point_B,point_C);
lenAC:=

这个 PASCAL 的程序 不知道哪错了？ 解释以下这个程序(pascal) 以下程序错在什么地方,怎么编译不出来? java程序不知道错在何处 PASCAL程序不知道是哪里出错了，请高手指点 PASCAL程序 pascal 程序 我是新手,对以下程序不知道请指点......谢谢 我编的Pascal程序错在哪儿？ 这段程序为什么错?(pascal)