Удалить из файла точку с максимальным расстоянием от начала координат.

program qwe;
uses crt;
type TPoint = record
       x,y: integer;
     end;
var x: array [1..100] of TPoint;
    f: file of TPoint;
    i, maxi, n: integer;
    max: real;
begin
  n:=0;
  writeln('1 - otkrut fail, 2 - sozdat fail: ');
  readln(i);
  if i = 1 then begin
    Assign(f,'D:\x.dat');
    Reset(f);
    n:=0;
    while not eof(f) do begin
      inc(n);
      read(f,x[n]);
    end;
    Close(f);
  end
  else if i = 2 then begin
    Assign(f, 'D:\x.dat');
    Rewrite(f);
    write('Kolichestvo tochek = ');
    readln(n);
    for i:=1 to n do begin
      writeln('Tochka ',i,' [x,y] = ');
      readln(x[i].x, x[i].y);
    end;
    for i:=1 to n do write(f,x[i]);
    Close(f);
  end else begin
    writeln('Oshubka vubora!');
    readln;
    exit;
  end;
  writeln('Ishodnuy fail:');
  for i:=1 to n do writeln(x[i].x,', ',x[i].y);
  max:=sqrt(sqr(x[1].x)+sqr(x[1].y));
  maxi:=1;
  for i:=2 to n do
    if max < sqrt(sqr(x[i].x)+sqr(x[i].y)) then begin
      max:=sqrt(sqr(x[i].x)+sqr(x[i].y));
      maxi:=i;
    end;
  Assign(f, 'D:\x.dat');
  Rewrite(f);
  for i:=1 to n do
    if i <> maxi then write(f,x[i]);
  writeln('Novuy fail:');
  for i:=1 to n do
    if i <> maxi then writeln(x[i].x,', ',x[i].y);
  Close(f);
  readln;
end.