Dodavanje posle prvog parnog

program dodavanje_posle_prvog_parnog_elementa;
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 dodajNaParni(p:pokelement; n:integer) :pokelement;
var novi, pom:pokelement;
begin
pom := p;
while pom <> NIL do
    begin
    if pom^.podatak mod 2 <> 0 then
        pom := pom^.sledeci
    else
        begin
        new(novi);
        novi^.podatak := n;
        novi^.sledeci := pom^.sledeci;
        pom^.sledeci := novi;
        break;
        end;
    end;
dodajNaParni := 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;

writeln('Unesi  elemenat koji zelis da dodas u listu:');
readln(n);
glava := dodajNaParni(glava, n);
writeln('Kreirana lista je:');
stampaj_listu( glava );
end.