Izbrisi posle prvog parnog

program izbaciPosleParnog;
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;

function izbaciPosleParnog(p:pokelement):pokelement;
var pom1, pom2:pokelement;
begin
pom1 := p;
while (pom1 <> NIL) and (pom1^.podatak mod 2 = 1) do
    begin
    pom2 := pom1;
    pom1 := pom1^.sledeci;
    end;
pom2 := pom1;
pom1 := pom1^.sledeci;
pom2^.sledeci := pom1^.sledeci;
dispose(pom1);
izbaciPosleParnog := p;
end;

var n,i,x:integer; glava:pokelement;
begin
glava := NIL ;
writeln('Unesi broj elemenata u listi:');
readln(n);
for i:=1 to n do
begin
writeln('Unesi ',i,'. element:');
readln(x);
glava := dodaj(glava, x);
end;
glava := izbaciPosleParnog(glava);
writeln('Kreirana lista je:');
stampaj_listu( glava );
end.