Удалить из списка все звенья с информационными полями имеющими значения меньше заданного

type te (тип, к которому применимы операции присваивания и проверки на равенство)
list=node;
node=record
elem:te;
next:list
end;
var l:list;

const s=5;
type int=integer;
plist=^node;
node=record data:int; next:plist;
end;
var list, start :plist;
 
procedure add(d:integer);
var l:plist;
begin
  New (l); { выделяем память под структуру }
  l^.data := 6;  { инициализируем данные }
  l^.next := nil; 
  { т.к. добавляем в конец, то указатель на следующий равен nil }
{ если start не равен nil, значит список не пуст}
  if start <> nil then
  begin;
     list := start;
      { "перематываем" список, что бы list стал последним элементом }
      while list^.next <> nil do
         list := list^.next;
     list^.next := l { устанавливаем указатель  на следующий элемент, а это у нас l }
  end
  else
     start := l; { если список был пуст, тогда делаем l первым элементом }
  list := l { теперь меняем текущий элемент, присваивая ему значение l }
end;
 
procedure Display;
begin
  if start = nil then
  begin
    writeLn ('Список пуст.');
    exit
  end;
 
  list := start;
 
  while (list <> nil) do
  begin
   write ( list^.data);
   list := list^.next
  end
end;
 
procedure Delete;
var
  l: plist;
begin
  if start = nil then
    exit; { список пуст - удалять нечего }
 
while list <> nil do
  begin
    new(l);
     if list^.data>s then 
      begin 
         list := start^.next; 
         Dispose (start); { освобождаем память }
         start := list { устанавляваем новое начало списка }
      end;
     list:=nil;
  end
end;
 
 
var a:int;
begin add(a); delete;  display; end.