[Athen]

возможно проблема в твоих N+1, программа каждый раз ее считает заново

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

while not eof(f) do begin inc(N); read(F,r); stringGrid1.Cells[0,N]:=r.fio; stringGrid1.Cells[1,N]:=r.gr; stringGrid1.Cells[2,N]:=r.faq; stringGrid1.Cells[3,N]:=r.predmet; stringGrid1.Cells[4,N]:=r.ocenka; stringGrid1.Cells[5,N]:=r.god02; stringGrid1.Cells[6,N]:=r.g2; stringGrid1.Cells[7,N]:=r.g03; stringGrid1.Cells[8,N]:=r.g04; stringGrid1.Cells[9,N]:=r.g05; stringGrid1.Cells[10,N]:=r.g06; end;