двумерный массив в memo и обратно

[Ilya_L]

Доброго времени суток всем!Вот наткнулся на такую задачу, нужно двумерный массив записать в memo, stringGrid исключен, все перепробовал проделать над memo.
Вот мой код:

for j:=1 to n do begin
          for i:=1 to m do begin
            Read(input,matr[i,j]);
            Write(Memo4.Lines.Add(matr[i,j]));
          end;
          Writeln;
          Readln;
        end;

И так уже пробовал, бесполезно. Только первую строку выводит, а потом выводит ошибку.

for j:=1 to n do begin
          for i:=1 to m do begin
            Read(input,matr[i,j]);
            st:=st+' '+matr[i,j];
            write(Memo4.Lines.Add(st));
          end;
          sr:='';
          writeln;
          readln;
        end;

Помогите пожалуйста!

[Stilet]

for j:=1 to n do begin
          for i:=1 to m do begin
            Memo4.Lines.Add(floattostr(matr[i,j]));
          end;
        end;

Writeln; Readln; не работают в оконном приложении.

[Ilya_L]

       AssignFile(input,OpenDialog1.FileName);
        Reset(input);
        readln(input,m,n);
        for j:=1 to n do begin
          for i:=1 to m do begin
            Read(input,matr[i,j]);
            memo4.Lines.Add(matr[i,j]);
          end;
          readln;
        end;

теперь в memo выводится матрица, но между строками остаются еще пустые 3-4 строки. как от них можно избавиться?