задано натуральное N и координаты N точек на плоскости. составить алгоритм и программу на Delphi для определения координаты точки,наименее удаленной от точки с координатами (10;-2)

Program MinDist;
{$APPTYPE CONSOLE}
uses sysutils;

const
  k = 100;
  ax = 10;
  ay = -2;

var
  T: array[1..k, 1..2] of integer;
  r, rmin, i, n: integer;

begin
  write(Введите число точек на плоскости: );
  readln(n);
  rmin := 32767;
  Randomize;
  writeln(Исходные данные:);
  for i := 1 to n do
  begin
    T[i, 1] := Random(51) - 25;
    T[i, 2] := Random(51) - 25;
    r := sqr(T[i, 1] - ax) + sqr(T[i, 2] - ay);
    if rmin > r then rmin := r;
    writeln((, T[i, 1], ,, T[i, 2], ))
  end;
  writeln(#13#10, Минимальное расстояние от А(, ax, ,, ay, ) равно: , sqrt(rmin))
end.