не могу понять почему файл не переименовывается и не удаляется

program asd;
uses crt;
var f:file of byte;
namee:string;
    a:byte;
 procedure new;
 var name_n:string;
 begin
  write('Введите имя файла* ');
  read(namee);
  assign(f,namee);
  rewrite(f);
  close(f);
 end;
 procedure rename_f;
  var name_p,name_r:string;
  begin
   write ('Введите имя файла ');
   readln(name_p);
   assign(f,name_p);
   {$I-}reset(f);{$I+}
   if IoResult = 0 then
                    begin
                     writeln('Такой файл найден и может быть переименован**');
                     write('Введите новое имя файла '); readln(name_r);
                     rename(f,name_r);
                     writeln;
                     write('Файл успешно переименован из ',namee,' в ', name_r);
                     namee:=name_r;
                    end
                   else begin write('Такого файлане существует '); readln; end;
   close(f);
  end;
 procedure del;
  var delite_f:string;
  begin
   write('Введите имя удаляемого файла ');
   readln(delite_f);
   erase(f);
  end;
begin
 while true do
  begin
   clrscr;
   writeln('1:Создать файл ');
   writeln('2:Переименовать файл ');
   writeln('3:Удалить файл ');
   writeln('0:Выход ');
   write('Ваше решение ');
   readln(a);
   case a of
    1:new;
    2:rename_f;
    3:del;
    0:exit;
   end;
  end;
end.