Заполнить матрицу

[Artoo]

По-любому задача простая, но я не могу сообразить как решить ее рационально.
Как заполнить матрицу вот таким способом?

[Arigato]

Не знаю, на сколько это рационально, но получилось вот так:

  FillChar (M, SizeOf (M), 0);
  A := 1;
  for j := 1 to 5 do
    for i := 1 to j do
    begin
      nj := 10 - j;
      M[j-i+1,nj] := 26 - A;
      M[nj+i-1,nj] := 50 - A;
      M[10-i,j] := 25 + A;
      M[i,j] := A;
      Inc (A);
    end; {for}

[Stilet]

Примерный алгоритм может выглядеть так:

MODULE Матрица;
IMPORT StdLog,ObxRandom;
VAR  a:ARRAY(9) OF ARRAY(9) OF INTEGER;

PROCEDURE ВводМассива;
VAR i,j,e:INTEGER;
BEGIN
 e:=1; FOR i:=0 TO 4 DO FOR j:=0 TO i DO	 a[j,i]:=e;INC(e);	END;  END;
 e:=25;FOR i:=0 TO 3 DO FOR j:=0 TO i DO	 a[j,8-i]:=e;DEC(e);	END;  END;
 e:=26;FOR i:=0 TO 4 DO FOR j:=0 TO i DO	 a[8-j,i]:=e;INC(e);	END;  END;
 e:=49;FOR i:=0 TO 3 DO FOR j:=8-i TO 8 DO	 a[j,8-i]:=e;DEC(e);	END;  END;
END ВводМассива;

PROCEDURE НульМассива;
VAR i,j:INTEGER;
BEGIN
 FOR i:=0 TO LEN(a)-1 DO
	FOR j:=0 TO LEN(a[i])-1 DO
	 a[i,j]:=0;
	END;
 END;
END НульМассива;

PROCEDURE ВыводМассива;
VAR i,j,e:INTEGER;
BEGIN
 e:=1;
 FOR i:=0 TO LEN(a)-1 DO
	FOR j:=0 TO LEN(a[i])-1 DO
	 StdLog.IntForm(a[i,j],10,3,' ',FALSE);StdLog.Tab;
	END; StdLog.Ln;
 END;
END ВыводМассива;

PROCEDURE do*;
BEGIN
 StdLog.Clear;НульМассива; ВводМассива;ВыводМассива;
END do;

END Матрица.

Бабочку выдает, н правда тут стоит его немного подправить...