Сохранение

[qpuTuJlb]

Доброго времени суток, нам в колледже задали сделать практическую, все вроде бы нормально, но из StringGrid не хочет сохранятся в файл, при сохранение выбивает ошибки, вот код что в нем не так?

procedure filecreator(fname:shortstring;g:tstringgrid);
var
f:file of stud;
i:integer;
a:stud;
begin
assignfile(f,fname);
reset(f);
for i:=1 to g.RowCount-1 do begin
a.fio:=g.cells[1,i];
a.mark:=strtoint(g.cells[2,i]);
write(f,a);
end;
closefile(f);
end;

[Stilet]

выбивает ошибки

Странно... чет не вижу их текста.