怎么用memo一行行的显示文本文件中的内容(50分)

文本文件中是一行的纪录：如下：
9.95178
4.88231
8.19456
6.45443
4.79758
7.57071
9.72289
1.41951
3.71803
6.43871
可是用下面的程序，却只能这样显示：
9.95178 4.88231
8.19456 6.45443
4.79758 7.57071
9.72289 1.41951
3.71803 6.43871

程序如下：
var s:string[150];
i,j:real;
MyFile:TextFile;
begin
AssignFile(Myfile,'f:/exam/t2.txt');
reset(Myfile);
try
while not Eof(Myfile) do
begin
Readln(Myfile,s,j);
Memo1.Lines.Add(s+' '+floattostr(j));
end;
finally
closeFile(MyFile);
end;

memo1.Lines.LoadFromFile

倒，你的i,j是什么东东？
同意楼上。

是这样的，就是说，我想通过一个二位数组得到16个数，怎么实现。
：张剑波, 卷起千堆雪tyn, 都说得对，memo1.Lines.LoadFromFile是
正确的。

var
i,j : integer;
a : array of string;
MyFile : TextFile;
begin
i := 1; j := 1;
AssignFile(Myfile,'f:/exam/t2.txt');
reset(Myfile);
try
while not Eof(Myfile) do
begin
while not eol do
begin
read(a[i,j]);
j := j + 1;
end;
i := i + 1;
end;
finally
closeFile(MyFile);
end;
//......
end;

在文本文件中就不用floattostr(j)嘛，最简单的办法还是用Memo1.Lines.LoadFromFile(FileName)。

解决

多人接受答案了。