Удаление первого элемента списка - Turbo Pascal

Формулировка задачи:

Ребят помогите,пожалуйста. Суть в том,что нужно составить список(записную книжку) с фамилиями номером и датой рождения, затем нужно определить средний возраст всех людей из списка и удалить тех кто младше среднего возраста и отсортировать уже этот список по алфавит. Удаление работает, но вот если удаляемый элемент стоит первым в списке, то он удаляет только его фамилию, надеюсь поможете мне разобраться в этом.

uses crt;
type
 dataDMY=record
  dataD:integer;
  dataM:integer;
  dataY:integer;
  end;
  type
  human=record
  surname:string;
  number:string;
  data:DataDmy;
  end;
  list=^note;
  note=record
  inf:human;
  Next:List;
  end;

 procedure AddElement(var spis1:list;fam:string;num:string;datD,datM,datY:integer);
 var
 tmp:list;
 begin
  if spis1=nil then
  begin
    New(spis1);
    tmp:=spis1;
    end
  else
  begin
    tmp:=spis1;
    while tmp^.next<>nil do
      tmp:=tmp^.next;
      New(tmp^.next);
      tmp:=tmp^.next;
      end;
      tmp^.next:=nil;
      tmp^.inf.surname:=fam;
      tmp^.inf.number:=num;
      tmp^.inf.data.dataD:=datD;
      tmp^.inf.data.dataM:=datM;
      tmp^.inf.data.dataY:=datY;
  end;
 procedure print(spis1:list);
 var i:integer;
 begin
   if spis1=nil then
   begin
   writeln('Spisok pust');
   exit;
 end;
 i:=0;
 while spis1<>nil do
 begin
 i:=i+1;
   writeln(' ',spis1^.inf.surname,'   ',spis1^.inf.number,'    '
   ,spis1^.inf.data.dataD,'.',spis1^.inf.data.dataM,'.',spis1^.inf.data.dataY);
   spis1:=spis1^.next;
   end;
 
end;

   function Age(var n:integer;tmp:list):integer;
  var
  i,s:integer;
  v:integer;
  begin
    v:=0;
    s:=0;
    for i:=1 to n do
    begin
      if tmp^.inf.data.dataM > 3 then
      s:=2016+s-tmp^.inf.data.dataY-1
      else s:=2016+s-tmp^.inf.data.dataY;
      tmp:=tmp^.next;
    end;
     v:=s div n;
      age:=v;
   end;
 
  procedure SearchDelElement(spis1:list;tmp:list);
  var
  tmpi,tmp2:list;
  begin
 
    if spis1= nil then
    exit;
    if  (tmp=spis1) then
    begin
      spis1:=tmp^.next;

      Dispose(tmp);
    end
    else
    begin
      tmpi:=spis1;
      while tmpi^.next<>tmp do
        tmpi:=tmpi^.next;
      tmpi^.next:=tmp^.next;
      Dispose(tmp);
    end;

    end;
 
procedure SearChelement(spis2:list;n:integer);
var
tmp,tmp1:list;
begin
      tmp1:=spis2;
      while spis2<>nil do
      begin
       if (2016-spis2^.inf.data.dataY<n ) then
       begin
 
         searchDelElement(tmp1,SPIS2);
       end;
      spis2:=spis2^.next;
 
      end;

 end;

  var
 spis:list;
 fam,num:string;
 ch:char;
 datD,datM,datY,n,i:integer;
 tmp:list;
 begin
 spis:=nil;
 
  ClrScr;
  writeln('Ваша зап книжка*.');
  writeln('Колво контактов:');
  readln(n);
  repeat
  writeln('Выберете:');
  writeln('1.Доб контакт*');
  writeln('2.Сортировать');
  writeln('3.Вывод списка на экран**');
  ch:=readkey;
 
  case ch of
   '1':begin
    for i:=1 to n do
    begin
    writeln('фамилия:');
    readln(fam);
 
    writeln('Номер*:');
    readln(num);
    writeln('Дата рождения:');
    writeln('День:');
    readln(datD);
    writeln('месяц:');
    readln(DatM);
    writeln('Год:');
    readln(DatY);
    addElement(spis,fam,num,datD,datM,datY);
    ClrScr;
    end;
 {  sort( Age(n,spis));}
    end;
 
    '2':begin
    ClrScr;
       { sort(age(n,spis));}
      { printage(spis,age(n,spis));}
    {  DelElement(spis,age(n,spis)); }
      searchElement(spis,age(n,spis));
      Print(spis);
        end;
 
    '3':begin
     Clrscr;
    { writeln('-----------------------------------------');
     writeln('|”*¬Ё«Ёп    | Ќ®¬Ґа вҐ«Ґд®**   | ѓ®¤ ђ®¦¤Ґ*Ёп  |'); }
     Print(spis);
     readkey;
     end;
     end;
 until ch='0';
  Dispose(spis);
  end.

Решение задачи: «Удаление первого элемента списка»

Листинг программы

procedure DelItem(var p: List; e: List);
var t: List; q: ^List;
begin
  q:=@p;
  while (q^<>nil) and (q^<>e) do q:=@q^.Next;
  if q^=nil then Exit;
  t:=q^; q^:=q^.Next; Dispose(t);
end;

Объяснение кода листинга программы

В процедуре DelItem объявляются две переменные: p и e. Переменная p представляет список, из которого нужно удалить элемент, а переменная e - это сам элемент, который нужно удалить.
Создается переменная t типа List, которая будет использоваться для временного хранения элемента, который нужно удалить.
Создается переменная q типа ^List, которая будет использоваться для указания на текущий элемент в списке p. Переменная q инициализируется адресом первого элемента списка p.
В цикле while проверяется, что q не равно nil и q не равно e. Если оба условия выполняются, то q обновляется на следующий элемент в списке, а затем цикл повторяется. Это позволяет переместить элемент, который будет удален, в конец списка.
Если после выполнения цикла q равно nil, значит в списке нет элементов, которые нужно удалить. В этом случае процедура завершается.
После выхода из цикла, переменная t инициализируется значением q. Это означает, что элемент, который был удален, был сохранен в переменной t и может быть безопасно уничтожен с помощью Dispose.
Переменная q обновляется на следующий элемент в списке, чтобы можно было продолжить работу со следующим элементом.