массив, помогите кто чем может Опции

[dedok]

Сведения об ученике состоят из его имени и фамилии, названия класса (год обучения и буквы), в котором он учился, оценок полученных учеником за последнюю четверть. Пусть дан массив, содержащий сведения об ученике школы. Выясните, имеются ли в школе ученики у которых совпадают Фамилия и имя.

[BlackShadow]

Код

Const
 N = 20;

Type
 TChel=Record
   Name:String;
   SurName:String;
   ClassYear:Integer;
   ClassLetter:Char;
   Marks:Array[1..10] Of Integer
 End;

Var
 Data:Array[1..N] Of TChel;

Function Test:Boolean;
Var
 i,j:Integer;
Begin
 Test:=True;
 For i:=1 To N-1 Do
   For j:=i+1 To N Do
     If (Data[i].Name=Data[j].Name) And (Data[i].SurName=Data[j].SurName) Then
       Exit;
 Test:=False
End;