задано натуральное 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.