{$R-}
Type
  PIntArray = ^TIntArray;
  TIntArray = array[1 .. 1] of Integer;

Procedure vvod(Var a: PIntArray; Var b: Integer);
Var
  i: integer;
begin
  Writeln('------------');
  Writeln('Vvod massiva');
  Writeln('------------');
  Writeln('skolko chisel v massive');
  readln(b);

  GetMem(a, b * SizeOf(Integer));

  for i:=1 to b do begin
    Writeln('Vvedite element massiva');
    readln(a^[i]);
  end;
end;

Var
  a: PIntArray;
  b: Integer;

begin
  vvod(a,b);
  readln;
  { ... }
  FreeMem(a, b * SizeOf(Integer)); { Не забываем освобождать }
end.