FileWork

program FileWork;
  type
    car = record
      brand : string;
      model : string;
      maxSpeed : integer;
    end;
  var
    cars : car;
    f : textfile;
    answer, oldName, newName, name, information: string;
    i : integer;
begin
  cars.brand := 'Volvo';
  cars.model := 'G-700';
  cars.maxSpeed := 200;
  repeat
    begin
      writeln('1. Create file');
      writeln('2. Rename file');
      writeln('3. Write information to file');
      writeln('4. Read information from file');
      writeln('5. Delete file');
      writeln('6. Exit');
      readln(answer);
      case answer of
        '1':
          begin
            write('Enter a file name: ');
            readln(name);
            assignFile(f, name);
            rewrite(f);
            closefile(f);
          end;
        '2':
          begin
            write('Enter a old file name: ');
            readln(oldName);
            assignFile(f, oldName);
            write('Enter a new file name: ');
            readln(newName);
            rename(f, newName);
            closefile(f);
          end;
        '3':
          begin
            write('Enter a file name: ');
            readln(name);
            assignFile(f, name);
            rewrite(f);
            write('Enter a information: ');
            readln(information);
            write(f, information);
            closeFile(f);
          end;
        '4':
          begin
            write('Enter a file name: ');
            readln(name);
            assignFile(f, name);
            reset(f);
            writeln('=========', name, '=========');
            repeat
            begin
              readln(f, information);
              writeln(information);
            end;
            until eof(f);
            write('=========');
            for i := 1 to length(name) do
            begin
              write('=');
            end;
            writeln('=========');
          end;
        '5':
          begin
            write('Enter a file name to delete: ');
            readln(name);
            assignFile(f, name);
            erase(f);
            closeFile(f);
          end;
      end;
    end;
  until answer = '6';
end.