Работа с файлами

[AntiDriver]

Дано число k и текстовый файл. Удалить из файла строку с номером k (строки нумеруются от нуля). Если строки с таким номером нет, то оставить файл без изменений.

Программа с представленным кодом читает информацию из исходного файла и перезаписывает её во временный, но строку с номером k не удаляет (хотя должна по идее). Подскажите, в чём ошибка?

Uses crt;
Const
   k=5;
   n=250;
Var
   f,g:text;
   S: string;
   i:integer;
 
 
BEGIN
   Clrscr;
   assign(f,'c:\1.txt');
   reset(f);
   assign(g,'c:\1~.tmp');
   rewrite(g);
   i:=0;
   while not EOF(f) do begin
                          while not EOLN(f) do begin
                                                           readln(f,s);
                                                           if i<>k then writeln(g,s);
                                                           inc(i);
                                                       end;
                       end;
   close(f);
   close(g);
END.

[ROMA2PVT]

Uses crt;
Var
   f,g:text;
   S: string;
   i,k:integer;


BEGIN
   Clrscr;
   assign(f,'c:\1.txt');
   reset(f);
   assign(g,'c:\2.txt');
   rewrite(g);
   write('Введите номер строки которую нужно удалить: ');
   readln(k);
   i:=1;
   while not EOF(f) do begin
                          while not EOLN(f) do begin
                                                           readln(f,s);
                                                           if i<>k then writeln(g,s);
                                                           inc(i);
                                                       end;
                       end;
   close(f);
   close(g);
   Erase(f);
   Rename(g, '1.txt');
END.

Ну можно вот так переименовыванием временного файла.

[AntiDriver]

Нет, не помогло.

Вот такая просьба, проверьте у себя работает ли эта программа (удаляет 5ую строчку, считая с 0, из файла c:\1.txt) и отпишитесь об этом.

 
Const
   k=5;
Var
   f,g:text;
   S: string;
   i:integer;
 
 
BEGIN
   Clrscr;
   assign(f,'c:\1.txt');
   reset(f);
   assign(g,'c:\1~.txt');
   rewrite(g);
   i:=0;
   while not EOF(f) do begin
                                   readln(f,s);
                                   if i<>k then writeln(g,s);
                                   inc(i);
                              end;
   rewrite(f);
   reset(g);
   while not eof(g) do
                      begin
                         readln(g,s);
                         writeln(f,s);
                      end;
  close(f);
  erase(g);
END.

[ROMA2PVT]

а в чём проблема то?

Const
   k=5;
Var
   f,g:text;
   S: string;
   i:integer;


BEGIN
   assign(f,'c:\ROMA.txt');
   reset(f);
   assign(g,'c:\ROMA2.txt');
   rewrite(g);
   i:=0;
   while not EOF(f) do begin
                                   readln(f,s);
                                   if i<>k then writeln(g,s);
                                   inc(i);
                              end;
   rewrite(f);
   reset(g);
   while not eof(g) do
                      begin
                         readln(g,s);
                         writeln(f,s);
                      end;
  close(f);
  close(g);
  erase(g);
END.