лабабд

Uses Crt;

type
  Actors = Record
    ID_F: word;
    Name_A: string[18];
    Fam_A: string[18];
    DofB: string[8];
    Roles: byte;
    Gender: boolean;
  end;

  Films = Record
    ID_F: word;
    ID_A: word;
    Name_F: string[20];
    Adress: string[20];
    Duration: string[6];
    Date: string[8];
  end;

var
  FV1: file of Actors;
  ActorsBP: Actors;

  FV2: file of Films;
  FilmsBP: Films;

const
  ActorsName = 'Actors.owo';
  FilmsName = 'Films.owo';

procedure Open;
begin
  Assign(FV1, 'Actors.owo');
  Assign(FV2, 'Films.owo');

  if not FileExists(ActorsName) then ReWrite(FV1)
  else ReSet(FV1);

  if not FileExists(FilmsName) then ReWrite(FV2)
  else ReSet(FV2);
end;

procedure Close;
begin
  Close(FV1);
  Close(FV2);
end;

procedure Menu;
var
  input: string;
begin
  Write('Введите 1 чтобы выйти: ');
  ReadLn(input);
  case input of
    '1': Close;
  end;

end;

begin
  Open;
  Menu;
  Close;
end.