[angvelem]

Всё тривиально

Код:

const
  n = 9;
type
  // привыкай адресовать массивы с 0
  TBuf = array[0..n] of Integer;
var
  p : TBuf;
...
procedure MyProc(p : TBuf);
var
  I : Integer;
begin
  for I := Low(p) to High(p) do
...
end;