単にInteger型の配列の読み書きをしたいのですが読み込みでIOエラーが出ます。どこが悪いのでしょ？
var
UArrayNo: array[0..99] of Integer;
procedure TForm1.sbTest1Click(Sender: TObject);
var
i: Integer;
F:File of Integer;
begin
AssignFile(F,ExtractFilePath(Application.ExeName)+'FileNo.dat');
ReWrite(F);
for i := 0 to 99 do
begin
UArrayNo[i] := Random(100); Write(F,UArrayNo[i]);
end;
CloseFile(F);
end;

procedure TForm1.sbTest2Click(Sender: TObject);
var
i: Integer;
F:File of Integer;
begin
AssignFile(F, ExtractFilePath(Application.ExeName)+'FileNo.dat');
Reset(F);
i := 0;
while not Eof do
begin
Read(F,UArrayNo[i]); Inc(i);
end;
CloseFile(F);
end;