Конвертация программ с Си на Паскаль

program dyn_array;
type TIntegers = array of Integer;
var arr:TIntegers;
    n,L:Integer;
 
procedure PrintArray(var values:TIntegers);
var i:Integer;
begin
    writeln('Print Array');
    for i:=0 to High(values) do begin
        if i=0 then write(values[i])
        else write(', ',values[i]);
    end;
    writeln;
end;
 
begin
    repeat
        write('Input array length (up to 100): ');
        readln(L);
    until (L>0)and(L<=100);
    SetLength(arr,L);
    for n:=0 to L-1 do begin
        arr[n]:=Random(101)-50;
    end;
    PrintArray(arr);
    SetLength(arr,0);
end.

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}
 
var
     pDynArray : tPtrIntArr0;{tIntArr1;}
     nSize : integer;
     i: integer;
begin
  clrscr;
  write ('Vvedite size: ');
  readln (nSize);
 
 {Тут, конечно, по хородему, надо проверить, чтобы введенное nSize не было
  большим настольо, чтобы требуемый размер памяти не превосходил $FFFF}
 
  if (nSize > ($FFF0 div SizeOf(integer)))
     then begin
               writeln ('Slishkom bolsjoe chislo!');
               Halt;
          end;
  if MaxAvail < SizeOf(integer)*nsize then
 
 
  else
      begin
        GetMem (pDynArray, nSize * SizeOf (pDynArray^[1]));
 { Тут опять, по-хорошему, проверить, что память выделилась }
 
 
 { Далее действия как с обычны массивом }
  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, nSize * SizeOf (pDynArray^[1]));
  readln;{задержка}
       end;
end.