Нахождение координат

[dancergirl]

Помогите исправить ошибки в задаче,у меня она не компилируется.
На плоскости задано множество точек.Определить какой должна быть величина R,чтобы окружности радиуса R с центрами в заданных точках не пересекались.
program A1;
type
tochka=record
x:-10..10;
y:-10..10;
end;
var M:array[1..10]of tochka;
R,x,y,otr,i,min,j,n:real;
begin
readln(n);
for i:= 1 to n do
readln(M[i].x,M[i].y);
otr=sqrt(sqrM[1].x-M[2].x+sqrM[1].y-M[2].y);
min:=otr;
for i:=2 to n-1 do
for j:=i+1 to n do
begin
otr:=sqrt(sqrM[1].x-M[2].x+sqrM[1].y-M[2].y);
if otr<min then
min:=otr;
R:=otr1-0,1/2;
writeln('R')
readln;
end.

[Sazary]

type
tochka=record
x : integer;
y : integer;
end;

var M:array[1..10]of tochka;
R,otr,min:real;
i,j,n : integer;
begin
readln(n);
for i:= 1 to n do
  readln(M[i].x,M[i].y);

otr:=sqrt(sqr(M[1].x-M[2].x)+sqr(M[1].y-M[2].y));
min:=otr;
for i:=1 to n-1 do
 for j:=i+1 to n do
  begin
  otr:=sqrt(sqr(M[1].x-M[2].x)+sqr(M[1].y-M[2].y));
  if otr<min then
   min:=otr;
  end;
  R:=otr/2;
writeln('R = ',R:7:4);
readln;
end.

[dancergirl]

Спасибо,теперь работает.