proc  shellSort ( schrittweite, unsortiert )

	for i = 0, i < Länge von Schrittweite , i++

		for j = schrittweite, j < Länge von unsortiert, j++

			m = unsortiert;
			k = j;

			while k >= schrittweite an der Stelle i

				if unsortiert an der Stelle k – Schrittweite an der Stelle i > m

				    unsortiert an der Stelle k = unsortiert an der Stelle k – Schrittweite an i

				    k = k – Schrittweite an der Stelle i

					else

						break;

				fi

			do


		unsortiert an der Stelle k = m


		rof

	rof

corp