Не могу решить программу в турбо Паскале! Помогите пожалуйста="(

Как-то так

program round;
uses
crt;
var
R: Real; { Радиус круга }
x0, y0: Real; { Координаты центра круга }
x, y: Real; { Координаты проверяемой точки }

{ Функция проверки принадлежности точки левой части круга }
function PointInRound(x, y, x0, y0, R: Real): Boolean;
begin
PointInRound := False;
if (x < x0) and ((x - x0) * (x - x0) + (y - y0) * (y - y0) <= R * R) then
PointInRound := True;
end;

begin
ClrScr;
WriteLn('Координаты центра круга: ');
WriteLn('x0 = ');
ReadLn(x0);
WriteLn('y0 = ');
ReadLn(y0);
WriteLn('Введите радиус круга: ');
ReadLn(R);
WriteLn('Введите x: ');
ReadLn(x);
WriteLn('Введите y: ');
ReadLn(y);
if (PointInRound(x, y, x0, y0, R) = True) then
WriteLn('Точка находится в левой части круга')
else
WriteLn('Точка находится вне левой части круга');
WriteLn('Press Any Key');
ReadLn;
end.