Поиск расстояния между точками

program Project1;
 
 
 
uses
crt;
 
Var f:text;
num:array[1..100,1..2] of integer;
i,i1,n,tmp,x,y,count,bcount:integer;
t:boolean;
fc,fc2,bc:real;
Begin
Writeln('Vvedite X and Y');
Readln(x,y);
Assign(f,'D:/numbers.txt');
Reset(f);
i:=0;
Writeln('Enter X and Y');
Writeln('X Y:');
While not(EOF(f)) do
begin
i:=i+1;
read(f,num[i,1],num[i,2]);
Writeln(num[i,1],' ',num[i,2]);
end;
close(f);
n:=i;
count:=200;
fc:= SQRT(sqr(ABS(x-num[1,1]))+sqr(ABS(y-num[1,2])));
IF (x<>num[1,1]) and (y<>num[1,2]) then
begin
For i:=2 to n do
begin
fc2:= SQRT(sqr(ABS(x-num[i,1]))+sqr(ABS(y-num[i,2])));
if FC<>FC2 then
if fc2<fc then
While fc2<=fc do
Begin
fc2:=fc2+1;
bCount:=bcount+1;
if bcount<count then
begin
count:=bcount;
i1:=i;
end;
end
else if fc2>fc then
begin
bc:=fc;
While fc2>=bc do
Begin
bc:=bc+1;
bCount:=bcount+1;
if bcount<count then
begin
count:=bcount;
i1:=i;
end;
end;
end
else
begin
i1:=i;
break;
end;
end;
end
else
i1:=1;
Writeln(i1);
Writeln('Blizayshie coordinati= ',num[i1,1],' ',num[i1,2]);
readln;
end.

uses
crt;
Var f:text;
    x,y,a,b,mn,amn,bmn:real;{лучще все вещественные}
Begin
Writeln('Vvedite X and Y');
Readln(x,y);
Assign(f,'D:/numbers.txt');
Reset(f);
{прочитаем первую пару координат, пусть пока это будет ближняя точка}
read(f,a,b);
writeln(a:0:2,' ',b:0:2);
mn:=sqr(a-x)+sqr(b-y);{корень не извлекакем, нет смысла}
amn:=a;
bmn:=b;
While not(EOF(f)) do
 begin
  read(f,a,b);
  writeln(a:0:2,' ',b:0:2);
  if sqr(a-x)+sqr(b-y)<mn then
   begin
    mn:=sqr(a-x)+sqr(b-y);
    amn:=a;
    bmn:=b
   end;
 end;
close(f);
Writeln('Blizayshie coordinati= ',amn:0:2,' ',bmn:0:2);
readln
end.