передача массива в процедуру через указатель Опции

[compiler]

Добрый день!
В целях оптимизации моей программы я решил передавать процедурам не матрицу, а указатель на нее... Но у меня это никак не получается...

type
        Arr=array[0..1, 0..1] of integer;
        PT = ^Arr;
procedure pr(var ar:PT);
begin
       ar^[1, 1]:=0;
end;
var     a: Arr;
begin
        pr(a);        {<---? Как вызвать pr(a^)  или pr(@a) или ...?}
end.

как ни странно, поиском ничего не нашел... может плохо искал?

заранее благодарен.

[Client]

Знаю, что не в тему, но хочется полностью разобраться

Сам массив (по значению) передается так:

Чуть не так сказал...Да передается ссылка на массив

procedure pr(var ar: Arr);

если мы изменим в процедуре, то он измениться и основной программе (массив)

procedure pr(const ar: Arr);

а здесь? ведь передается тоже ссылка на массив, но он не изменится в основной при изменении в процедуре?