Ich habe jetzt versucht, das Programm halbwegs zu verstehen - leider ist es so programmiert, dass es einem Aussenstehenden fast unmöglich gemacht wird, etwas zu begreifen:
Wenn ich es jetzt richtig verstanden habe, werden in data[x] und data [x+1] grundlegend verschiedene Arten von Daten abgespeichert, nämlich in data[x] daten, und Data[x+1] irgend eine Art von Index. SO GEHT ES EINFACH NICHT!
Mit irgend etwas auf die Art
Delphi-Quellcode:
var
Data: array [1..4] of record
Datenelement: integer;
index: integer
end;
würde man auf Anhieb sehen, wie die Daten im Programm organisiert sind. So wie das Programm jetzt aussieht (Datenstrukturen, keine Schleifen, die falschen Schleifen) blicke ich einfach nicht durch, was gewollt ist und was passieren sollte, und wo deshalb der Fehler liegen könnte.