Pokazivaci, ulancane liste, Pascal

Language: Layout:

program UlancanalistaIzostavielem;

type
pok=^elem;
elem=record
     broj:integer;
     next:pok
     end;
var
lista:pok;

procedure ispisilistu(lista:pok);
var pom:pok;
begin
pom:=lista;
while(lista<>nil)do begin
write(lista^.broj,' ');
lista:=lista^.next
end;
lista:=pom
end;

procedure citajlistu(var lista:pok);
var novi,poslednji:pok;
begin
poslednji:=nil;
lista:=nil;
while not eoln(input) do begin
new(novi);
read(novi^.broj);
if (lista=nil) then 
lista:=novi
else poslednji^.next:=novi;
poslednji:=novi
end
end;

procedure brisilistu(var lista:pok);
var
pom:pok;
begin
while not (lista=nil) do begin
pom:=lista;
lista:=lista^.next;
dispose(pom)
end
end;

procedure izostavielem(var lista:pok);
var 
pom,prvi:pok;
k:integer;
begin
writeln('Unesite broj k: ');
read(k);
pom:=nil; prvi:=lista;
while (prvi<>nil)do begin
if(prvi^.broj<k)  then begin
 if (pom=nil) then begin
 pom:=lista;
 lista:=pom^.next;
 dispose(pom);
 prvi:=lista
 end
else begin
pom^.next:=prvi^.next;
dispose(prvi);
prvi:=pom^.next
end
end
else begin
pom:=prvi;
prvi:=pom^.next
end
end
end;

begin
lista:=nil;
citajlistu(lista);
ispisilistu(lista);
izostavielem(lista);
ispisilistu(lista);
brisilistu(lista);
ispisilistu(lista)
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.23 sec, absolute running time: 0.14 sec, cpu time: 0.08 sec, memory peak: 3 Mb, absolute service time: 0,46 sec