请教！如何打开数组记录文件？(50分)

局部容器：文件号 数据类型：整数型
局部容器：数据 数据类型：整数型 数组：2
文件号 ＝ 打开文件 (“c:/01.dat”, #读入, )
判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
读入数据 (文件号, 数据)
画板1.滚动写行 (数据 [1], 数据 [2])
如果真 (是否在文件尾 (文件号, ) ＝ 真)
文件号 ＝ 0
如果真结束
判断循环尾 ()
请教！如何将以上程序转为delphi程序？

这是我想象中的写法，请给个正确写法。
type
数据:ARRAY [1..2] of integer;
var
数据:file;
begin
assignfile(数据，'c:/01.dat);
while not eof(数据)do
read(数据);
form1.memo.lines.add(inttostr(数据));
end.

没有人能回答！让我怎么结束此贴？

请问你是怎么写入文件的？
一现实我调通的你看是否可？
写入：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;

begin
FStr:=TFileStream.Create('E:/abc.txt', $FFFF);
myarray[0].dose:=100;
myarray[0].gray:=2;
myarray[1].dose:=200;
myarray[1].gray:=4;
myarray[2].dose:=300;
myarray[2].gray:=6;
try
FStr.Write(myarray, sizeof(myarray));
finally
FStr.Free;
end;
end;
读出：
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
FStr:=TFileStream.Create('E:/abc.txt', fmopenread);
FStr.Read(myarray, Sizeof(myarray));
for i :=0 to 2 do
ShowMessage(IntToStr(myarray.dose)+#13+inttostr(myarray.gray) );
FStr.Free;
end;

接受答案了.