Почему ошибка, как её исправить?

uses crt;
var F: Text;
    i,a,x: integer;
    name,N: string;
Begin
     Writeln('Введите название файла:');
     Readln(name);
     N:= name + '.txt';
     Assign(F, N);
     if FileExists(N) then
     begin
          Reset(f);
          if eof(f) then
          begin
               Append(F);
               write(F,'текст');
          end
 
          else Erase(F);
     end
    
     else Rewrite(F);
     Close(f);
 
     
end.

uses
  crt;
var
  F: Text;
  i,a,x: integer;
  name,N: string;
begin
  Write('Введите название файла: ');
  Readln(name);
  N:= name + '.txt';
  Assign(F, N);
  if FileExists(N) then
    begin
      Reset(f);
      if eof(f) then
        begin
          Append(F);
          write(F,'текст');
        end
      else
        begin
          Close(F);       { Закрыть файл}
          Erase(F);       { Удалить файл}
        end;
    end
  else
    Rewrite(F);
  Close(f);
  Readln;
end.

var
  F: Text;
  i, a, x: integer;
  name, N: string;
 
begin
  Writeln('Введите название файла:');
  Readln(name);
  N := name + '.txt';
  Assign(F, N);
  if FileExists(N) then
  begin
    Append(F);
    write(F, 'текст');
    close(f);
  end    
  else 
  begin
    Rewrite(F);
    //что-то делаем
    Close(f);
  end;
end.

var
  F: Text;
  i, a, x: integer;
  name, N: string;
 
begin
  Writeln('Введите название файла:');
  Readln(name);
  N := name + '.txt';
  Assign(F, N);
  if FileExists(N) then
  begin
    Append(F);
    write(F, 'текст');
    close(f);
    erase(f);
  end    
  else 
  begin
    Rewrite(F);
    //что-то делаем
    Close(f);
  end;
end.

program Zadanie194project1;
 
uses
   crt;
var
  F: Text;
  i,a,x: integer;
  namefile,N: string;
begin
  Write('Введите название файла: ');
  Readln(namefile);
  N:= namefile + '.txt';
  Assign(F, N);
  if not FileExists(N) then   { Если файл не найден, то ...}
    begin
      Rewrite(F);                { создаем его}
      writeln('Файл с таким именем не существует, поэтому он создан заново.');
    end
  else                        {иначе ...}
    begin
      Reset(f);                { открываем файл на чтение }
      if EOF(f) then    { Если файл не содержит текст, то ...}
        begin
          Append(F);           { устанавливаем файл в режим добавления}
          write(F,'текст');    { записываем в него текст}
          close(F);            { Закрываем файл}
          writeln('Такой файл существует, он пуст и в него записана информация.');
        end
      else                     { иначе ...}
        begin
          Close(F);            { Закрываем файл}
          Erase(F);            { Удаляем  файл}
          writeln('Такой файл существует. Он содержит информацию. Файл удален.');
        end;
    end;
  Readln;
end.