В динамической памяти находятся 2 массива одинакового размера. Поменять местами их содержимое

{
  Обязательно отключить проверку индексов,
  иначе возникнет ошибка времени исполнения
}
{$R-}
Type
  TType = Integer; { Или любой другой тип }
 
  { Указатель на динамический массив }
  PDynArray = ^TDynArray;
  TDynArray = array[1 .. 1] of TType;
 
 
Var
  { Через эту переменную будет осуществляться вся работа с массивом }
  arr1,arr2: PDynArray;
  buf:TType;
  n, i: integer;
 
Begin
  n:=10;
  randomize;
  {
    В "куче" запрашивается блок памяти с размером,
    достаточным для хранения N элементов типа TType
  }
  GetMem(arr1, n * SizeOf(TType));
  GetMem(arr2, n * SizeOf(TType));
 
  (*** Начало работы с массивом ***)
 
  {
    Обращение к элементу динамического массива - почти такое же,
    как и к элементу обычного (статического) массива,
    за исключением операции "^" - разыменования ...
 
    Пример:
  }
  For i := 1 To n Do
    begin
      arr1^[i] := random(n);
      arr2^[i] := random(n);
    end;
 
  writeln('Исходный массив № 1:');
  For i := 1 To n Do
    Write(arr1^[i]:4);
  writeln;
  writeln('Исходный массив № 2:');
  For i := 1 To n Do
    Write(arr2^[i]:4);
  For i := 1 To n Do
    begin
      Buf:=arr1^[i];
      arr1^[i]:=arr2^[i];
      arr2^[i]:=Buf;
    end;
  writeln;
  writeln('Полученный массив № 1:');
  For i := 1 To n Do
    Write(arr1^[i]:4);
  writeln;
  writeln('Полученный массив № 2:');
  For i := 1 To n Do
    Write(arr2^[i]:4);
 
  (*** Закончили работу с массивом - уничтожаем его ***)
 
  { Возвращаем память назад в "кучу" }
  FreeMem(arr1, n * SizeOf(TType));
  FreeMem(arr2, n * SizeOf(TType));
  readln;
End.