Перевод программы с языка Паскаль на Питон

[PASCAL]var
  i, j, k: integer;
  x, y: real;
  f: file of real;
 
begin
  assign(f, 'file');
  rewrite(f);
  writeln('Введите в файл вещественные числа, окончание ввода 0');
  i := 0;
  repeat
    inc(i);
    write('Элемент N', i, ': ');
    readln(x);
    if x <> 0 then write(f, x);
  until x = 0;
  reset(f);
  writeln('Исходный файл');
  repeat
    read(f, x);
    write(x, ' ');
  until eof(f);
  writeln;
  write('Введите число для сравнения y=');
  readln(y);
  reset(f);
  k := 0;//количество элементов удалить
  i := 0;//начало файла
  while i < filesize(f) - k - 1 do
  begin
    seek(f, i);
    read(f, x);
    if x >= y then inc(i) //пропускаем большие
    else
    begin
      k := k + 1; //считаем меньшие
      for j := i to filesize(f) - 2 do //сдвигаем на них конец файла
      begin
        seek(f, j + 1);
        read(f, x);
        seek(f, j);
        write(f, x)
      end;
    end
  end;
  seek(f, filesize(f) - 1 - k);//проверим последний
  read(f, x);
  if x < y then k := k + 1;//если меньше, то +1
  seek(f, filesize(f) - k);//встаем в конец
  truncate(f);//обрезаем файл
  reset(f);
  writeln('Удаление меньших ', y:0:2);
  repeat
    read(f, x);
    write(x, ' ');
  until eof(f);
  close(f);
end.