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

[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);

А так не тот же массив передастся? Ведь исользуется как VAR-параметр, т.е. сам массив

[compiler]

procedure pr(var ar: Arr);

А так не тот же массив передастся? Ведь исользуется как VAR-параметр, т.е. сам массив

да имеено так он передается, а так

 procedure pr(var ar:PT)

недолжен(?). PT это ж указатель... и передаваться будет указатель, который может быть намного меньше массива...