Huch mir ist noch etwas aufgefallen...
Delphi-Quellcode:
//Sammelphase
l:=1;
j:= 0;
k:=0;
while j <= length(temp)-1 do begin
while k <= length(temp[j])-1 do begin
Feld[l] := temp[j,k];
k:=k+1;
l:=l+1;
end;
j:=j+1;
end;
Ich glaube hier stimmt etwas nicht. Dieser Block ist innerhalb deiner 4er-Sortil-Schleife, aber sortil hat hier keinerlei Auswirkung! l,j,k werden alle frisch initialisert...
-> kontrollier mal deine Anweisungsblöcke pro While, If, else... stimmen alle begin und end ?