ShellSort Problem - Array mit 2 Elementen

[TUX_der_Pinguin]

Ups ich hatte eine Zeile im Original code noch vergessen, aber die ist identisch mit der aus meiner Implementierung.

if j > k then Dec(j,k) else j := 0;