man könnte es ja so machen:
Delphi-Quellcode:
dreizehnter:=I[13];
for Zaehler:=0 to 13 do
begin //muss nicht unbedingt
if Zaehler<13 then
I[Zaehler]:=I[Zaehler+1] //alle eins aufrücken! hopp hopp hopp
else
I[Zaehler{also 13}]:=dreizehnter;
end; //wenn oben begin weg, dann auch das hier weg!
dreizhenter und Zaehler müssen natürlich vorher deklariert werden(außer, wenn du es in basic machst(warscheinlich auch bei anderen programmiersprachen)).