Вставить в непустой список L пару новых элементов E1 и E2 перед его последним элементом

Program lab25; 
uses crt; 
type Tinf=integer; 
  List=^TList; 
  TList=record   
  data:TInf; 
  next:List; 
  end; 
var 
L, q , pbegin: list; 
i:integer;
 
procedure AddElem(var spis1:List;znach1:TInf); 
var 
 t : List; 
begin 
new(t); 
t^.data := znach1; 
while spis1^.next <> nil do spis1:= spis1^.next; 
spis1^.next:=t;
t^.next := nil; 
spis1 := t; 
 end; 
begin 
new(l);
l^.next:=nil;
pbegin:=l;
l^.data:=1; 
for i:=2 to 8 do addelem(l, i); 
q := pbegin; 
while q <> nil do 
begin 
write(q^.data:4); 
q := q^.next; 
end; 
writeln; 
readln; 
end.

program lab25;
// uses crt; 
type
  Tinf = integer;
  List = ^TList;
  TList = record   
    data: TInf; 
    next: List; 
  end;
 
function Item(data: Tinf; next: List): List;
var
  t: List;
begin
  new(t);
  t^.data := data;
  t^.next := next;
  Item := t;
end;
 
procedure AddBeforeLast(var start: List; znach1: Tinf);
var
  t, p: List;
begin
  t := Item(znach1, nil);
 
  // рассматриваем три случая
  if start = nil then // 1) список пуст - самое простое: запомним новый элемент, как начало списка
  begin
    start := t;
  end else
  begin
    p := start;
    while (p^.next <> nil) and (p^.next^.next <> nil) do p := p^.next;
    if p^.next = nil then // 2) в списке один элемент - значит, надо поменять указатель на начало списка 
    begin
      t^.next := p;
      start := t
    end else // 3) в списке больше одного элемента - тут просто пошаманим с указателями, чтобы новый элемент добавился перед последним
    begin
      t^.next := p^.next;
      p^.next := t;
    end;
  end
  
end;
 
procedure AddElem(var start: List; znach1: TInf); // эта процедура всегда добавляет элемент к хвосту списка
var
  t, p: List;
begin
  t := Item(znach1, nil);
  if start = nil then start := t else 
  begin
    p := start;
    while p^.next <> nil do p := p^.next;
    p^.next := t;
  end;
end;
 
var
  q, pbegin: list; 
  i: integer;
 
begin
  pbegin := nil;
  for i := 1 to 8 do addelem(pbegin, i); // 1 2 3 4 5 6 7 8
  AddBeforeLast(pbegin, 20); // 1 2 3 4 5 6 7 20 8
  AddBeforeLast(pbegin, 22); // 1 2 3 4 5 6 7 20 22 8
  q := pbegin; 
  while q <> nil do 
  begin
    write(q^.data:4); 
    q := q^.next; 
  end; 
  writeln;
  // не забываем удалять выделенную ранее память
  readln; 
end.