Описать процедуру удаления последнего элемента непустого односвязного списка, заданного указателем на его начало

program task10;
type
PEl=^TElement;
TValue=integer;
TElement= record
value:TValue;
next:PEl;
end;

procedure add(var first:PEl; value:TValue);
var
last:PEl;
new_el:PEl;
begin
//find last el
last:=first;
if last<>nil then //если есть первый элемент то проследуем до конца цепи
while (last^.next<>nil) do last:=last^.next;

//add element
New(new_el);
new_el^.value:=value;
new_el^.next:=nil;

//link to last
if last<>nil then //есть последний элемент
last^.next:=new_el
else //нет последнего элемента, значит он будет первым
first:=new_el;
end;

procedure print(first:PEl);
begin
writeln('list output:');

while (first<>nil) do
begin
writeln('value=',first^.value);
first:=first^.next;
end;
end;

var
root:PEL;
Begin
//demonstration
root:=nil;
add(root,1);
add(root,2);
add(root,6);

print(root);
end.