Эх... кривой код - беда проверщика.
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;