Имеется 2 типизированных файла x.tip и y.tip содержащих координаты точек (x и y вещественного типа

var f:file of real;
    i:integer;
    a:real;
begin
randomize;
assign(f,'x.tip');
rewrite(f);
for i:=1 to 15 do
 begin
  a:=9*random;
  write(f,a);
 end;
close(f);
assign(f,'y.tip');
rewrite(f);
for i:=1 to 15 do
 begin
  a:=9*random;
  write(f,a);
 end;
close(f);
write('Файлы координат созданы')
end.

uses crt;
var f,g:file of real;
    x,y,x1,y1,x2,y2,r,mx:real;
    i,j,imx,jmx:integer;
begin
assign(f,'x.tip');
reset(f);
assign(g,'y.tip');
reset(g);
if filesize(f)<>filesize(g)then
 begin
  write('Файлы содержат различное количество чисел');
  close(f);
  close(g);
  exit;
 end;
writeln('Координаты точек');
for i:=1 to filesize(f) do
write(i:5);
writeln;
write('x:');
while not eof(f) do
 begin
  read(f,x1);
  write(x1:5:2);
 end;
writeln;
write('y:');
while not eof(g) do
 begin
  read(g,y1);
  write(y1:5:2);
 end;
writeln;
reset(f);
reset(g);
writeln('Расстояния между соседними точками');
write(' ':4);
read(f,x1,x2);
read(g,y1,y2);
r:=sqrt(sqr(x1-x2)+sqr(y1-y2));
write(r:5:2);
x:=x2; y:=y2;
while not eof(f) do
 begin
  read(f,x1);
  read(g,y1);
  r:=sqrt(sqr(x1-x)+sqr(y1-y));
  write(r:5:2);
  x:=x1; y:=y1;
 end;
writeln;
 mx:=0;
 for i:=0 to filesize(f)-2 do
 for j:=i+1 to filesize(f)-1 do
  begin
   seek(f,i);
   read(f,x1);
   seek(f,j);
   read(f,x2);
   seek(g,i);
   read(g,y1);
   seek(g,j);
   read(g,y2);
   r:=sqrt(sqr(x1-x2)+sqr(y1-y2));
   if r>mx then
    begin
     imx:=i+1;
     jmx:=j+1;
     mx:=r;
    end;
 end;
writeln('Максимальное расстояние между точками ',imx,' и ',jmx,' = ',mx:0:2);
close(f);
close(g);
end.