Определить, какая из двух точек находится дальше от: начала координат; окружности заданного радиуса с центром в начале координат — Pascal(Паскаль)

uses crt;

var
  x1, x2, y1, y2, r: real;

begin;
  clrscr;
  writeln('Введите координаты первой точки (X и Y) после каждой коор. ENTER');
  readln(x1);
  readln(y1);
  writeln('Введите координаты второй точки (X1 и Y1) после каждой коор. ENTER');
  readln(x2);
  readln(y2);
  writeln('Введите радиус окружности(если нет, то r=0)');
  readln(r);
  { Т.к. координаты должны браться по модулю, то: }
  x1 := SQR(x1 * x1);
  x2 := SQR(x2 * x2);
  y1 := SQR(y1 * y1);
  y2 := SQR(y2 * y2);
  IF r * r > x1 * x1 + y1 * y1 THEN
    writeln('Первая точка лежит в пределах окружности');
  IF r * r > x2 * x2 + y2 * y2 THEN
    writeln('Вторая точка лежит в пределах окружности');
  IF x1 * x1 + y1 * y1 > x2 * x2 + y2 * y2 THEN
  begin
    writeln('первая точка находится дальше.');
  end
  else
    writeln('вторая точка находится дальше.');
  IF x1 * x1 + y1 * y1 > x2 * x2 + y2 * y2 THEN
  begin
    writeln('Первая точка лежит дальше от окружности');
  end
  else
    writeln('Вторая точка лежит дальше от окружности');

end.