[Pyro]

можно вроде того:

Код:

type my1 = byte;
type tdata = array[0..3] of my1;
type matr = array[0..1,0..1] of tpoint;

var dano: tdata = (1,7,9,12);
var shablon: matr = (((x:0;y:0), (x:1;y:2)), ((x:1;y:3), (x:0;y:0)));

function use(shablon: matr; data: tdata): matr;
var i,j: integer;
begin
  for i:=0 to high(matr) do
    for j:=0 to high(matr) do begin
      result[i,j].x := data[shablon[i,j].x];
      result[i,j].y := data[shablon[i,j].y];
    end
end;

procedure TForm1.Button1Click(Sender: TObject);
var matrix: matr;
begin
  matrix := use(shablon, dano);