[Athen]

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

Код:

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;