Seznam a třídění vkládáním – Pascal – Fórum – Programujte.com

Dobrý den,

pokouším se naprogramovat třídění vkládáním v jednosměrném zřetězeném seznamu a program funguje zhruba na každý pátý pokus, jinak hodí runtime chybu 216 - asi odkazuji na nulový ukazatel. Ale nevím kde a proč program někdy funguje a někdy ne.

Kód programu je zde: http://tny.cz/4fcf5b39

Tady je pomocná knihovna pro práci se seznamem: http://tny.cz/66892410

Díky za jakoukoli pomoc!

http://www.freepascal.org/docs-html/user/userap4.html

216 General Protection fault
The application tried to access invalid memory space. This can be caused by several problems:

Dereferencing a nil pointer.
Trying to access memory which is out of bounds (for example, calling move with an invalid length).
 

while (y^.data > x^.data) and (x^.dalsi<>setrideny.konec) do x:=x^.dalsi;

Co, kdyz je x^.dalsi = nil? Ja teda v pascalu uz radu let nic nedelal a cela ta konstrukce je mi zahadou, jak asi funguje, ale predpokladam, ze to tak nejak pri vytvareni naplnuje pole data, dalsi, konec. A jestlize v tom poli nebude odkaz na dalsi radek, pak tam bude co? A co se stane, kdyz to neco zacnes porovnavat? Kdyz na tu druhou podminku pro ten posledni radek vubec nedojde, tak program asi funguje.
Pripadne si muzes to pole/objekt pri kazdem prujezdu cyklu cele vypsat, abys videl, co je ulozene v promennych.
Jinak, vyjmy, vyhledej, vloz..., spoustu funkci. Ale hlavni vec, kdyz to funguje.

Tak už se mi to podařilo zprovoznit. Staci nahradit x^.dalsi <> konec tímto: x^.dalsi <> nil.

Ale je to celé záhad. Například tento http://tny.cz/e6fedd17 kód pro binární vyhledávání taky funguje dle libosti.