Вывести номер координаты пункта В наиболее удаленного от пункта А — Pascal(Паскаль)

uses crt;

var
  maxx, maxy, i, m, x, y, n: integer;
  bx: array [1 .. 1000] of integer;
  by: array [1 .. 1000] of integer;
  bx1: array [1 .. 1000] of integer;
  by1: array [1 .. 1000] of integer;

begin;
  clrscr;
  writeln('Введите координаты пункта А(x и y через Enter) ');
  readln(x);
  readln(y);
  writeln('Введите количество пунктов В');
  readln(m);
  clrscr;
  FOR i := 1 TO m do
  begin
    gotoxy(1, 1);
    writeln('Введите координаты пунктов B(x и y через Enter)');
    readln(bx[i]);
    readln(by[i]);
  end;
  FOR i := 1 TO m do
  begin
    bx1[i] := SQR(bx[i] * bx[i]);
    by1[i] := SQR(by[i] * by[i]);
    IF (bx1[i] > x) AND (by1[i] > y) AND (bx1[i] > maxx) AND
      (by1[i] > maxy) THEN
    begin
      maxx := bx1[i];
      maxy := by1[i];
      n := i;
    end;
  end;
  clrscr;
  writeln('Точка A ', x, ',', y);
  writeln('Точки B ');
  for i := 1 to m do
  begin
    writeln(bx[i], ',', by[i]);
  end;
  writeln('Наиболее удалена точка с координатами ', bx[n], ',', by[n]);

end.