Усовершенствовать процедуру создания нового файла следующим образом: если данного файла нет, создавать, если есть – выдавать запрос на удаление имеющегося файла и создание нового — Pascal(Паскаль)

program Zadanie;

uses
  dos;

var
  myf: file of integer;
  namef: string;
  menu: byte;

function FileExists(S: String): Boolean;
var
  SR: SearchRec;
begin
  FindFirst(S, AnyFile - VolumeID - Directory, SR);
  FileExists := (DosError = 0);
end;

procedure create_f;
var
  yn, E: byte;
begin
  WriteLn('Введите имя файла: ');
  ReadLn(namef);
  Assign(myf, namef);
  if FileExists(namef) then
  begin
    WriteLn('Файл уже существует. Перезаписать?');
    WriteLn('1 - Нет');
    WriteLn('2 - Да');
    ReadLn(yn);
    case yn of
      1:
        exit;
      2:
        begin
          Erase(myf);
          ReWrite(myf);
        end;
    end;
  end
  else
    ReWrite(myf);
end;

begin
  create_f;
  ReadLn;

end.