Brisanje poslednjeg elementa iz liste

program Brisanje;
type pokelement = ^element;
    element = record
        podatak: integer;
        sledeci: pokelement;
    end;

function dodaj(p: pokelement; n: integer): pokelement;
var pom: pokelement;
begin
    if p = NIL then
    begin
        new(p);
        p^.podatak := n;
        p^.sledeci := NIL;
    end
    else
    begin
        pom := p;
        while pom^.sledeci <> NIL do
            pom := pom^.sledeci;
        new(pom^.sledeci);
        pom := pom^.sledeci;
        pom^.podatak := n;
        pom^.sledeci := NIL;
    end;
    dodaj := p;
end;

procedure stampaj_listu(p: pokelement);
var pom: pokelement;
begin
    pom := p;
    if p <> NIL then
    begin
        repeat
            write(pom^.podatak, ' ');
            pom := pom^.sledeci;
        until pom = NIL;
        writeln;
    end
    else
        writeln('Lista je prazna.');
    writeln;
end;

procedure obrisi( var p: pokelement);
var pom1, pom2: pokelement;
begin
    if p = NIL then
        writeln('Lista je prazna.')
    else
        begin
        pom1 := p;
        while pom1^.sledeci <> nil do
            begin
            pom2 := pom1;
            pom1 := pom1^.sledeci;
            end;
        pom2^.sledeci := nil;
        dispose(pom1);
        end;
end;

var n, i, x: integer;
    glava: pokelement;
begin
    glava := NIL;
    writeln('Unesi broj cvorova u listi:');
    readln(n);
    for i := 1 to n do
    begin
        writeln('Unesi ', i, '. element:');
        readln(x);
        glava := dodaj(glava, x);
    end;
    writeln('Lista pre brisanja elementa:');
    stampaj_listu(glava);
    obrisi(glava);
    writeln('Lista posle brisanja elementa:');
    stampaj_listu(glava);
end.