unit dinarray;
uses crt;
type
   {- Массивы и указатели на них -}
      tIntArr0 = array [0..$FFF0 div SizeOf(integer)-1] of integer;
      tIntArr1 = array [1..$FFF0 div SizeOf(integer)] of integer;
      tPtrIntArr0 = ^tIntArr0;
      tPtrIntArr1 = ^tIntArr1;

{процедура вывода массива без ведущих нулей}
procedure outmas(ptr: tPtrIntArr0; size: integer);
var
   i: integer;
   flag: byte;
begin
   flag:=0;{признак того, что встречен не ноль}
   for i:=1 to size do
                      begin
                         if(flag<>0) then
                            write(ptr^[i],' ')
                         else
                            if(ptr^[i]<>0) then
                               begin
                                  write(ptr^[i],' ');
                                  flag:=1;
                               end;
                      end;
end;{outmas}
[hide=0]procedure setlength(pDynArray : tPtrIntArr0;nSize : integer);
var
     i: integer;
     MaxAvail:integer;
begin
 {Тут, конечно, по хородему, надо проверить, чтобы введенное nSize не было
  большим настольо, чтобы требуемый размер памяти не превосходил $FFFF}

  if (nSize > ($FFF0 div SizeOf(integer)))
     then begin
               writeln ('Slishkom bolsjoe chislo!');
               Halt(1);
          end;
  if MaxAvail < SizeOf(integer)*nsize then

      begin
        GetMem(pDynArray, SizeOf(integer)*nsize);

 { Тут опять, по-хорошему, проверить, что память выделилась }[/hide] { Далее действия как с обычны массивом }
  for i:=1 to nsize do
                       pDynArray^ [i] := 2;
  pDynArray^ [nsize] := 10;
  pDynArray^ [nsize-1] := 20;
  pdynarray^[1]:=1;
  pdynarray^[2]:=0;
{ ..........................................}
{  writeln('pDynArray^ [1] = ',pDynArray^ [1]); }
  outmas(pDynArray,nSize);

  FreeMem (pDynArray);
  readln;{задержка}
       end;

  [hide=0]function getright(a:array[1..1000] of integer):pDynArray;//f-новый размер массива
  var s:pointer; r:pDynArray;
  begin
  s:=^a;   // идея заключается в том чтобы сделать указатель на исходный массив, а потом его присвоить указателю на динамический.
   result:=a;
  end;[/hide]       end.