Занести информацию из текстового файла в StrinGrid

[Аркадик]

Занести информацию из текстового файла в StrinGrid.Необходимо в одну колонку занести ФИО, которые прошли тест, а в Оценку их результат. Проверьте пожалуйста код
procedure TForm1.FormShow(Sender: TObject);
var L:textfile;
Lf,lf2:string;
i:byte;
begin
LF:='LogFile.txt';
AssignFile(L,lf);
reset(L);
stringgrid1.RowCount:=5;
StringGrid1.Cells[0,0]:=' Студенты;
StringGrid1.Cells[1,0]:=' Оценка;
i:=0;
while not eoln(L) do
begin
inc(i);
readln(l,lf);
if (length(lf)>1) and (length(lf)=0) then
StringGrid1.Cells[0,i]:=lf
else
StringGrid1.Cells[1,i]:=lf;
end;

[Аркадик]

У меня Студенты и оценка выводятся во второй колонке(студент)

[Аркадик]

Если необходимо могу скинуть прогу