procedure inserefinal2(var h,l:tprec; x:integer);
    var q:tprec;
begin
    new(q);
    q^.i:=x;
    q^.next:=nil;
    if (h<> nil) then
    l^.next:=q
    else h:=q;
    l:=q;
end;