Переделать в динамический массив

program massiv;
var
 arr1, arr2, arr3: array[1..10] of integer;
 i, j, k: integer;
begin
 writeln('Vvedite massiv: ');
  for i:=1 to 10 do
   begin
    readln(arr1[i]);     {вводим массив}
     if arr1[i] mod 2=0 then {если элементы четные, то}
     begin
       inc(j);          {считаем их кол-во}
       arr2[j]:=arr1[i];   {и заносим во второй массив}
      end
     else                {если элементы нечетные, то}
      begin
       inc(k);          {считаем их кол-во}
       arr3[k]:=arr1[i];   {и заносим в третий массив}
      end;
   end;
 writeln('Nechetny massiv: '); {выводим нечетный массив}
  for i:=1 to k do
   write(arr3[i], ' ');
 writeln;
 writeln('Kol-vo ego elementov: ', k);  
 writeln('Chetny massiv: ');         {выводим четный массив}
  for i:=1 to j do
   write(arr2[i], ' ');
 writeln;
 writeln('kol-vo ego elementov: ', j);
 readln
end.