Potrzebuje procedury ktora bedzie wstawiac elementy do listy alfabetycznie. Napisalem cos takiego, niestety dziala niepoprawnie:
type wsk = ^element;
element = record
cos:string;
nast:wsk;
end;
var glowa:wsk;
{procedura powinna ustawiac alfabetycznie}
procedure dodaj(s:string);
var nowy,pom:wsk;
begin
if glowa = nil then
begin
new(glowa);
glowa^.cos := s;
glowa^.nast := nil;
exit;
end;
pom := glowa;
while (pom^.nast <> nil) do
begin
if pom^.cos < s then break;
pom := pom^.nast;
end;
new(nowy);
nowy^.cos := s;
nowy.nast := pom.nast;
pom^.nast := nowy;
end;
begin
glowa := nil;
end.
--
-=[.SlimY.]=-