Реализация метода

[greenleonardo]

Не могли бы Вы помочь?
Нужно реализовать метод function TSpecialty.GetBestStudentName используя шаблон «InformationExpert», но я не понимаю как это сделать. Нужно реализовать на Delphi.

unit uStudents;
 
interface
 
type
 
TExamState = (esPassedExcellent, esPassedOK, esPassedPoorly, esNotPassed);
// состояние сдачи экзамена: сдан отлично, сдан хорошо, сдан плохо, не сдан
 
TStudent = class //студент
private
 
FName:string; // имя
FSurname:string; // фамилия
FMiddlename:string; // отчество
FBalls:real; // баллы за экзамен
 
public
function GetFullName: string; //возвращает полное имя студента
 
function StateFromBalls:TExamState // возвращает состояние сдачи экзамена исходя из количества баллов
function GetBalls: real; //возвращает баллы студента
end;
 
TGroup = class // Группа
private
FName : string; // Название группы
FStudents: TList; // Студенты группы
 
public
function GetMaxBalls: real; // Наибольшее количество баллов в группе
function GetExcellentCount: integer; // Количество сдавших на пять
function GetOKCount: integer; // Количество сдавших на четыре
function GetPoorlyCount: integer; // Количество сдавших на три
end;
 
TSpecialty = class // Специальность
private
FName : string; // Название специальности
FGroups : TList; // Группы специальности
 
public
 
function GetExcellentCount: integer; // Количество сдавших на пять
function GetOKCount: integer; // Количество сдавших на четыре
function GetPoorlyCount: integer; // Количество сдавших на три
 
function GetBestResult:real; // лучшие баллы за экзамен среди всех студентов всех групп
function GetBestGroupName: string; // Название группы, лучше всех сдавшей экзамен в среднем
function GetBestStudentName: string; // Имя студента, лучше всех сдавшего экзамен
 
end;