вот структура
Код:
type
TStudent = record
LastName : String[80];
NameAcr : String[10];
GrpNum : Integer; // may be String[]
Grades : Array [1..5] Of Integer;
end;
Дальше делаешь сам и спрашиваешь конкретно, что не получается, либо в раздел "Работа".
ЗЫ. Для сохранения/чтения на диск тебе потребуется конструкция File Of TStudent.