Удаление из линейного списка элементов

[kalosha-stepa]

написать процедуру которая удаляет из линейного списка элементы, большие первого.
у меня есть только процедура которая просто удаляет, а как ее дополнить не понимаю

program pr;
 Type Chain=^Elem;
      Elem=record
      data:integer;
      next:chain;
 end;

var first: chain; max:integer;

procedure form (var first: chain);
 var temp: chain; f: text;
begin
assign(f,'pr.txt');
reset(f);
while not (eof(f)) do
 begin
 new(temp);
  read(f, temp^.data);
  temp^.next:=first;
  first:=temp;
 end;
 close(f);
end;

procedure Print(first: chain);
 var temp: chain;
begin
 temp:= first;
while temp<> nil do
begin
 write(temp^.data,' ');
 temp:=temp^.next;
end;
end;
procedure del(var first: chain);
 var temp: chain;
begin
temp:=first;
while temp<> nil do
begin
if temp^.data<
temp:=first^.data;
first:=first^.next;
dispose(temp);
end;

BEGIN
writeln;
first:= nil;
form(first);
print(first);
END.

[masax]

procedure del(var first: chain);
var temp: chain; d: integer;
begin
temp:=first;
d:=temp^.data;
while temp^.next<> nil do
if temp^.next^.data > d then
temp^.next:= temp^.next^.next;
end;

[kalosha-stepa]

нет, я все понимаю но где удаление

[masax]

BEGIN
writeln;
first:= nil;
form(first);
del(first);
print(first);
END.

как то странно ты понимаешь)