Mam procke ktora wstawia alfabetycznie do listy slowa. Ale chce zrobic tak, ze jezeli slowo w kolejce juz mam to zeby go nie wstawialo. Gdzie mam tutaj wladowac i jakie porownanie zeby nie reagowalo na slowo, ktore juz jest na liscie??
procedure DodajDoListy(var lista : PLista; s : String);
var
p : PLista;
before, after : PLista;
begin
{ new(p); }
{ p^.data:=s; }
before:=nil;
after:=list;
while (after <> nil) and (p^.data > after^.data) do
begin
before:=after;
after:=after^.next;
end;
p^.next:=after;
if (before <> nil) then
before^.next:=p
else
lista:=p;
end;