Процедура добавления данных в конец двунаправленного списка.

[qwertytol]

Добрый вечер.
Нужна помощь в преобразовании процедуры добавления данных в начало списка на процедуру добавления в конец списка. (список двунаправленный). Заранее спс.

type
  link = ^kom;
  kom = record
          fio : string[15];
          nom : integer;
          next, prev : link;
  end;
  fl = file of kom;
  p2link = ^link;
var
  spisok, nach, nach2, p : link;
  z :  kom;
  i, n, menu, m : integer;
  a : char;
  f : fl;
  FlName : string;

procedure add (var nach1 : link);
var
   sp1 : link;

begin
  write('Введите Фио: ');  
  readln(z.fio);
  write('Введите номер записной книжки: ');
  readln(z.nom);

  new(sp1); 
  sp1^ :=z; 
  if nach1=nil then
  begin
    nach1:= sp1;
    sp1^.next:=nil;
    sp1^.prev:=p;
  end
  else

  begin
    sp1^.next:=nach1;  
    nach1:= sp1;       
  end;
end;

[MadReason]

 if nach1=nil then
  begin
    nach1:= sp1;
    sp1^.next:=p;
    sp1^.prev:=nill;
  end
  else

  begin
    sp1^.prev:=nach1;  
    nach1:= sp1;       
  end;