Переписать в типизированный файл числа с нечетными номерами из другого файла

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Label2: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    Memo1: TMemo;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Memo2: TMemo;
    Label6: TLabel;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
edit1.Text:=opendialog1.FileName;
memo1.Lines.LoadFromFile(opendialog1.FileName);
end;
end;
 
procedure TForm1.Memo1Change(Sender: TObject);
begin
label4.Caption:=inttostr(memo1.Lines.Count);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
if savedialog1.Execute then
edit2.Text:=savedialog1.FileName;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
r:textfile;
w:file of integer;
i,n:integer;
begin
if not fileexists(edit1.Text) then
begin
showmessage('Текстовый файл с целыми числами "'+edit1.Text+'" не существует!');
exit;
end;
memo2.Clear;
assignfile(r,edit1.Text);
assignfile(w,edit2.Text);
{$I-}
reset(r);
rewrite(w);
n:=1;
while not eof(r) do
begin
readln(r,i);
if ioresult<>0 then
begin
showmessage('В строке '+inttostr(n)+' не целое число!');
exit;
end;
if n mod 2=1 then
begin
write(w,i);
memo2.Lines.Add(inttostr(i));
end;
n:=n+1;
end;
closefile(r);
closefile(w);
{$I+}
label5.Caption:=inttostr(memo2.Lines.Count);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
f:string;
begin
f:=getcurrentdir+'\integers.txt';
if fileexists(f) then
begin
edit1.Text:=f;
memo1.Lines.LoadFromFile(f);
edit2.Text:=getcurrentdir+'\odd.int';
end;
end;
 
end.