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

[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-параметр, то есть - это должна быть переменная...

var
  a: Arr;
  pa: PT;
begin
  pa := @a;
  pr(pa); { <--- так должно сработать }
end.

Добавлено через 3 мин.
P.S. В чем заключается "оптимизированность" такого варианта по сравнению, скажем, с передачей:

procedure pr(var ar: Arr);

можно узнать?