Code:
// Free Pascal
{$assertions on}

procedure stuffints( var a: array of longint; const b: array of longint);
var i: word;
begin
  assert&#40;high&#40;b&#41;<=high&#40;a&#41;, 'Too many args to stuffints.' &#41;;
  for i &#58;= low&#40;b&#41; to high&#40;b&#41; do
    a&#91;i&#93; &#58;= b&#91;i&#93;;
end;

var
  a&#58; array&#91;1..5&#93; of longint;
  ad&#58; array of longint;

begin
  stuffints&#40; a, &#91;11,22,33,44,55&#93; &#41;;
  setlength&#40; ad, 3 &#41;;
  stuffints&#40; ad, &#91;22,33,44&#93; &#41;;
end.