Delphi编程问题

题目：定义一个记录类型，它的域为x，y，表示平面一点的坐标。编写一个程序，读入四对数据作为四边形ABCD的四个顶点，判断四边形形状是矩形、正方形还是其他。急用！谢谢了