[f00rd]

Все элементарно =)))
где-нить определяешь тип вроде

type
  TArray = array[1..3,1..3] of real;

и функцию уже определяешь следующим образом:

procedure skalar(wal0:TArray);

вот и все =)))