Список и ср.арифметическое

Program  spisok;
uses crt;
Type
zapdin=^zap;
zap=record
ukaz: zapdin;
info:integer;
end;
 
Var
zapr: zapdin;
zapg: zapdin;
n: integer;
zapis: zapdin;
 
Procedure Ochered ( var zap1:zapdin);
var
n:integer;
zapP,zapT:zapDin;
Begin
     writeln ('Введите целые числа. 0 - конец ввода чисел');
     read(n);
     if n<=0 then
        zap1:=nil
                 else
                     begin
                     new(zapT);
                     zap1:=ZapT;
                                repeat
                                ZapP:=ZapT;
                                new(ZapT);
                                zapP^.ukaz:=ZapT;
                                ZapP^.info:=n;
                                read(n);
                                until n<=0;
                     zapP^.ukaz:=nil;
                 Dispose(ZapT);
                      end;
end;
 
procedure srarifm(var zap1:zapdin);
 
Var
zapt: zapdin;
zapt1: zapdin;
n,i: integer;
sum:real;
kol:integer;
sr:real;
curr,pred:zapdin;
 
Begin
sum:=0;
n:=1;
zapt:= zap1;
zapt1:= zapt^.ukaz;
sum:=zapt^.info;
  while zapt^.ukaz <> nil do
   begin
    zapt1:= zapt^.ukaz;
            while zapt1 <> nil do
               begin
               zapt1:= zapt1^.ukaz;
               end;
                zapt:= zapt^.ukaz;
                         begin
                        sum:=sum+zapt^.info;
                        n:=n+1;
                        end;
   end;
   sum:=sum/n;
   write('Среднее арифметическое чисел: ',sum);
   
// тут я не знаю как организовать удаление чисел, больше ср. арифметического.
   Begin
   zapt:= zap1;
   begin
   zapt1:= zapt^.ukaz;
             begin
                   curr:=zap1;
                   pred:=zap1;
                   while curr <> nil do
                         If curr^.info > sum then
                         //zapt^.info:= zapt1^.info;
                                    begin
                                      curr:=curr^.ukaz;
                                      dispose(zap1);
                                      zap1:=curr;
                                      pred:=curr;
                                    end
                                        else
                                        begin
                                        pred^.ukaz:=curr^.ukaz;
                                        dispose(curr);
                                        curr:=pred^.ukaz
                                             else
                                             begin
                                             pred:=curr;
                                             curr:=curr^.ukaz;
                                              end;
                                         end;
            end;
      end;
end;
 
// основная программа
Begin
 
 
 ochered (zapis);
 srarifm (zapis);
 writeln;
 writeln;
 
 
end.