Procedure smazHodnotu obousmernyseznam – Pascal – Fórum – Programujte.com

procedure smazHodnoty(var s: ObousmerSeznam; hodnota: integer);
var aktivni,tmp: UkPrvek;
begin
aktivni:=s.zacatek;
while (aktivni <> nil) do begin
  if aktivni^.info = hodnota then begin
    tmp:=aktivni;
    aktivni^.naslednik^.predchudce:=aktivni^.predchudce;
    aktivni^.predchudce^.naslednik:=aktivni^.naslednik;
    dispose(tmp);
  end;
aktivni:=aktivni^.naslednik;
end;
end;

Nevite co je na ni spatne ? 

vyreseno