Program z_6;
var Mass1:array[1..2,1..100000000] of real;
Mass2:array[1..2,1..100000000] of real;
Mass:array[1..2,1..100000000] of real;
i,j,a,b,c,k,m,n,i1,min,j1:integer;
p,x1,x2,x3,x4:real;
begin
min:=2;
read (n);
for I1:=1 to N do begin
for j:=1 to 2 do
read (Mass1[j,i1]); end;
read (m);
for I:=1 to M do
for j1:=1 to 2 do begin
read (Mass2[j1,i]); end;
for I:=1 to M do
for I1:= 1 to N do
for j:=1 to 2 do begin
begin
x1:=Mass1[1,i1];
x2:=Mass1[2,i1];
x3:=Mass2[1,i];
x4:=Mass2[2,i];
If sqrt(sqr(x3-x1)+sqrt(x4-x2)) end;
for i1:=1 to n do
writeln (Mass[1,i1],' ',Mass[2,i1]);
end.

Почему выводит нули?