[Страдалецъ]

вот ваш код:

Код:

 while not Eof(input)
 do begin
    ReadLn(input, S);
    Cells.Text := StringReplace(S,#32,#13#10,[rfReplaceAll]);
    for j := 0 to n - 1
    do StringGrid1.Cells[j,i] := Cells.Strings[j];
    Inc(i);
    end;

вот мой:

Код:

while not Eof(T)
 do begin
    ReadLn(T, S);
    Cells.Text := StringReplace(S,#32,#13#10,[rfReplaceAll]);
    for C := 0 to Cells.Count - 1
    do StringGrid1.Cells[R,C] := Cells.Strings[C];
    Inc(R);
    end;

Разницу в границах цикла не замечаете?