Odstraneni prvku seznam – Pascal – Fórum – Programujte.com

Jak byste prosim odstranili prvek v jednosmernem neserazenem! linearnim seznamu  splnujici dane kriterium 

 ??

procedure odstranLyzareBody(var f: Fronta; kriterium: byte);
var predchudce, aktualni, tmp: UkPrvek;       
begin
predchudce:=nil;
aktualni:=f.zacatek;
while (aktualni <> nil) do begin
if (aktualni^.bodykarta < kriterium) then begin
                                          tmp:=aktualni;
                                          aktualni:=aktualni^.dalsi;                                
                                          
end;

end; 

                                                    
end;

Spis mam problem zrusit jen toho posledniho s malo body

procedure odstranLyzareBody(var f: Fronta; kriterium: byte);
var predchudce, aktualni, prvni,predposledni, posledni, tmp: UkPrvek;
begin
aktualni:=f.zacatek^.dalsi;
predchudce:=f.zacatek;
while (aktualni^.dalsi <> nil) do begin	{tohle rusi lyzare s malo body uprostred}
if (aktualni^.bodykarta < kriterium) then begin
                                          tmp:=aktualni;
                                          predchudce^.dalsi:=aktualni^.dalsi;
                                          dispose(tmp);
                                          end;
predchudce:=aktualni;
aktualni:=aktualni^.dalsi;
end;

prvni:=f.zacatek;
posledni:=f.konec;
{tohle rusi lyzare s malo body na zacatku}
if (prvni^.bodykarta < kriterium) then begin
                                       tmp:=prvni;
                                       f.zacatek:=prvni^.dalsi;
                                       dispose(tmp);
                                       end;
                                       { melo by to zrusit posledniho ale nevim jak} 
if (posledni^.bodykarta < kriterium) then begin
                                          tmp:=posledni;
                                          
                                       
                                          
                                          
                                          f.konec:=????;                                       
                                          dispose(tmp);
                                          end;}
end;

Zase to zbytečně komplikuješ. Takhle nějak by to mohlo fungovat:

procedure odstranLyzareBody(var f: Fronta; kriterium: byte);
var
  predchozi, aktualni, dalsi: UkPrvek;
begin
  predchozi := nil;
  aktualni := f.zacatek;

  while aktualni <> nil do
  begin
    if aktualni^.bodykarta < kriterium then
    begin
      dalsi := aktualni^.dalsi;

      if predchozi <> nil then predchozi^.dalsi := dalsi;
      if f.zacatek = aktualni then f.zacatek := dalsi;
      if f.konec = aktualni then f.konec := predchozi;

      dispose(aktualni);

      aktualni := dalsi;
    end
    else
    begin
      predchozi := aktualni;
      aktualni := aktualni^.dalsi;
    end;
  end;
end;

Diky moc musim se v tom jeste zdokonalit