type
  StudentNode = record
    Fam, Name, Otch: String;
    ID, OcVM, OcProg, OcFiz: Integer;
    nextNode: StudentPointer;
  end;