array-zuschneiden und elemente aufrücken

[Visual EZ++]

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

 

[Dario Linsky]

ist doch simpel

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