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

[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.

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

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

[volvo]

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

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

procedure pr(ar: Arr);

При передаче через

procedure pr(var ar: Arr);
{ или }
procedure pr(const ar: Arr);

передается ссылка на массив, то есть, сам массив в стек не копируется...