--------------------

ist doch simpel

Code :

1 2 3 4 5 6 7 8 9

var   a: array[1..10] of Integer;   i: Integer; begin   for i := 1 to 9 do begin     a[i] := a[i + 1];   end;   a[10] := 11; end;

regards