Задачка по информатике в Delphi7

Четыре точки заданы своими координатами х={x1,x2}; у={y1,y2}; z={z1,z2} ; р={р1,р2}. Определить и напечатать, сколько из них находится внутри круга с радиусом r, и сколько – внутри квадрата со стороной а; r и а заданы. Проверку того, находится ли точка внутри круга и квадрата, оформить в виде подпрограммы.