[PhoeniX]

Эх... кривой код - беда проверщика.
1. Переменные, которые используются только "на территории" процедуры, лучше объявлять в ней же.
2. Нафига при выводе переменной типа Word юзать FloatToStr, если есть IntToStr?
3. Смущают строчки

Код:

  n:=2;
  ...
  If R < Rmin then begin
  min:=R; n:=n+2; end;

Вроде, логичнее

Код:

  n:=1;
  ...
  If R < Rmin then begin
  min:=R; n:=i+1; end;