[pva]

Компилятор не ругался? сейчас я буду!!!

Код:

   Singles:=SingMas(ArrPoi); // Это что???

взяли указатель, решили, что там, где он (в стеке) расположен, на самом деле лежит какой-то массив? Если уж на то пошло:

Код:

type psingMas = ^singmas;
...
 Singles:=PSingMas(ArrPoi)^;

Дальше, зачем отдельно передавать размеры массива, если они и так через указатель передаются? может вы хотели сделать так:

Код:

type
  array_of_single = array of single;
  parray_of_single = ^array_of_single;

procedure copyArray(parr: parray_of_single)
var
  singles : array_of_single;
  ...
begin
  singles := parr^;

  for i:=Low(singles) to high(singles)
   do for j:=Low(singles[i]) to high(singles[i])    
    do ... 
end;