Удаление элемента из списка

[Ghost_gg]

Задание:
Вычислить среднее арифметическое элементов списка целых чисел и удалить все элементы меньше него.

С забиванием списка элементами все просто, и с вычислением среднего арифметического, а вот как удалить отдельные элементы до меня не доходит
P.S.
За код не ругать, писал ночью, знаю что много лишнего, но усовершенствовать его не горю желанием.

program spisk;
uses crt;
type
    inftype=string;
    kooficient = integer;
    sp=^list;
    list = record
         inf:inftype;
         next:sp;
         end;
var s:sp;
    flag:byte;
    k,w:integer;
    z:integer;

{**************SREDNEE ARIFMETICHESKOE***************}

function serArifm(a:sp):integer;
var tmp:sp;
s,b,i,x,m:integer;
begin
tmp:=a;
val(tmp^.inf,s,m);
i:=1;
{while tmp^.next<>nil do  }
for x:=1 to k do
begin
tmp:=tmp^.next;
val(tmp^.inf,b,m);
s:=s+b;
inc(i);
end;
serArifm:=s div i;
end;

{*************DELETE*************}
procedure del(var a:sp);
var x,b,c,m,n,e:integer;
q,p:pointer;
begin
b:=SerArifm(a);
{for x:=1 to k do}
{while n<>b do}
while a<>nil do
begin
val(a^.inf,c,m);
if c<b then
begin
q:=a;
dispose(q);
end;
a:=a^.next;
end;
end;

procedure vivod(q:sp);
var
tmp:sp;
begin
tmp:=q;
while tmp^.next<>nil do
begin
writeln(tmp^.inf);
tmp:=tmp^.next;
end;
writeln(tmp^.inf);
end;
procedure initsp(var q:sp);
var
t,tmp:sp;
begin
new(q);
q:=nil;
new(t);
t^.next:=nil;
write('vvedite info');
readln(t^.inf);
while t^.inf<>'' do
begin
inc(k);
if q=nil then q:=t
else
begin
tmp:=q;
while tmp^.next<>nil do
tmp:=tmp^.next;
tmp^.next:=t;
end;
new(t);
t^.next:=nil;
write('Vvedite info:');
readln(t^.inf);
end;
end;
begin
k:=-1;
initsp(s);
w:=serArifm(s);
writeln('Srednee Arifmeticheskoe: ',serArifm(s));
del(s);
vivod(s);
readln;
end.

кто-то может доступно объяснить как сделать это гребанное удаление?) не прошу решать задачу за меня.

[Ghost_gg]

procedure del(var a:sp);
var x,b,c,m,n,e:integer;
q,p:sp;
begin
b:=serarifm(a);
val(a^.inf,c,m);

while b>c do begin
q:=a;
a:=a^.next;
dispose(q);
val(a^.inf,c,m);
end;
val(a^.inf,c,m);

while(a^.next<>nil) do
begin
if b<c then
a:=a^.next else
begin
a^.next:=a^.next^.next;   
q:=a^.next;
dispose(q);
end;
end;
end;

переписал эту процедуру, но теперь матерится "Error 204: Invalid pointer operation." на второй dispose.
В новой идее мы сначала удаляем то что в начале, а потом все остальное

[sunman]

Сообщение от Ghost_gg

procedure del(var a:sp);
var x,b,c,m,n,e:integer;
q,p:sp;
begin
b:=serarifm(a);
val(a^.inf,c,m);

while b>c do begin
q:=a;
a:=a^.next;
dispose(q);
val(a^.inf,c,m);
end;
val(a^.inf,c,m);

while(a^.next<>nil) do
begin
if b<c then
a:=a^.next else
begin
a^.next:=a^.next^.next;   
q:=a^.next;
dispose(q);
end;
end;
end;

переписал эту процедуру, но теперь матерится "Error 204: Invalid pointer operation." на второй dispose.
В новой идее мы сначала удаляем то что в начале, а потом все остальное

Ты считаешь нормальным двукратное применение dispose?

Я предлагаю такой порядок: Ищем среднее арифмитическое элементов, ставим указатель на начало списка и далее проверяем значение элементов, если оно меньше то применяем dispose к элементу на который установлен указатель