[juggle]

у меня есть новая версия кода, но данные все равно выводятся не правильно (жирным то, что не выводится):
1 2 3
3 4 5
6 4 3
Кто нибудь скажите почему не выводятся начальные значения строк, начиная со второй?

Код:

begin
if OpenDialog1.Execute then
      begin
      AssignFile(input, OpenDialog1.FileName);
      Reset(input);

           i:=0;
           while not EOF(input) do
           begin
            j:=0;
            while not EOLN(input) do
                 begin
                 Read(input, a[i][j]);
                 j := j + 1;
                 end;
            i := i + 1;
            Read (input, a[i][j]);

            end;

//Show values from file in grid
        m:=strtoint(Edit1.Text);
        n:=strtoint(Edit2.Text);
            for i:=0 to m-1 do
            begin
                 for j:=0 to n-1 do
                 begin
                 StringGrid1.cells[j,i]:=IntToStr(a[i,j]);
                 end;
            end;
        CloseFile(input);
        end;
end;
end.