задать матрицу адамара

[bella_1989]

ребят, может быть кто нибудь может помочь задать матрицу адамара,с дельфи просто я столкнулась впервые, помогите пожалуйста, если не сложно, заранее спасибо! вот код программы на с++
#include "stdafx.h"
#include "stdio.h"
#include <conio.h>

void adamar(int** m, int n, int i, int j, int sign)
{
if(n==1) m[i][j] = sign;
else
{
adamar(m, n/2, i, j, sign);
adamar(m, n/2, i, n/2+j, sign);
adamar(m, n/2, n/2+i, j, sign);
adamar(m, n/2, n/2+i, n/2+j, -sign);
}
}

void main()
{
int n;
int i,j;
//clrscr();
printf("Enter the size of matrix: ");
scanf("%d",&n);
int** m = new int*[n];
for(i=0; i<n; i++) m[i]=new int[n];
adamar(m,n,0,0,1);
for(i=0; i<n; i++)
for(j=0; j<n; j++)
{

//gotoxy(2*i+1,j+3);
if(m[i][j] == 1) printf(" ");
printf("%d",m[i][j]);
}
getch();
}