исключение элементов из списка

[sahsa-m37]

исключить из списка элементы,относящиеся к учащимся,у которых средний балл меньше среднего балла группы:

Program iskl; 
Uses Crt;
Type dan=Record 
fio:String[7]; 
otm:Array[1..4] Of Integer 
End; 
ssylka=^zapis;
zapis=Record
ss:ssylka;
y:dan
End;
Var nach,s1,s2,ob,nbsps2:ssylka;
n,i,j:Integer; 
Begin ClrScr; 
WriteLn('Ведите количество фамилий в списке');
ReadLn(n);
New(s1);nach:=s1;
For i:=1 To n Do 
Begin
s1^.ss:=Nil;
New(ob);
Writeln('Введите фамилию из 7 букв и оценки');
Read(s1^.y.fio);
For j:=1 To 4 Do 
Read(s1^.y.otm[j]);
ReadLn; 
s2:=s1; 
New(s1); 
If i<>n Then s2^.ss:=s1 Else Dispose(s1) 
End;
{Закончено формирование списка} 
s1:=nach;
Repeat 
For i:=1 To 4 Do 
If s1^.y.otm[i]=2 Then 
If s1=nach Then nach:=s1^.ss Else s2^.ss:=s1^.ss; 
&nbsps2:=s1;
{s2-ссылка на предыдущий элемент} 
s1:=s1^.ss 
Until s1=Nil;
{Закончено исключение из списка}
{Печать списка} 
WriteLn('Список успевающих учащихся'); 
s1:=nach; 
While s1<>Nil Do 
Begin Write(s1^.y.fio); 
For i:=1 To 4 Do 
Write(' ',s1^.y.otm[I]:2); 
Writeln; 
s1:=s1^.ss; 
End; 
End.

программа просто формирует список(((помогите пожалуйста!

[sahsa-m37]

помогите пожалуйста!