Файлы в delphi10

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus, Vcl.ExtCtrls;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Memo1: TMemo;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    RG1: TRadioGroup;
    Редактирование: TLabel;
    Edit4: TEdit;
    procedure N3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RG1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  ank = Record
      nomer:string[100];
      tip: integer;
      country: string[100];
      instr: string[100];
    end;
var
  Form1: TForm1;
  mainfile: file of ank;
  path : string;
  forma : ank;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var n,i,mingod:integer;
begin
if rg1.ItemIndex = 0 then
  begin
     forma.nomer := edit1.Text;
     forma.tip := strtoint(edit2.Text);
     forma.country := edit3.Text;
     forma.instr := edit4.text;
     write(mainfile, forma);
  end;
if rg1.ItemIndex = 1 then
  begin
    //closefile(mainfile);
    reset(mainfile);
    memo1.Text := '';
    while not Eof(mainfile) do
      begin
        read(mainfile, forma);
        memo1.Lines.Add('Номер рейса: '+forma.nomer);
        memo1.Lines.Add('Тип самолета: '+intTostr(forma.tip));
        memo1.Lines.Add('Страна: '+forma.country);
        memo1.Lines.Add('Время: '+ forma.instr);
      end;
      closefile(mainfile);
  end;