Составить программу в паскале!!! Помогите пожалуйста

//Pascalfunction fact(x:byte):real; //Факториалbegin  if x = 0 then fact := 1  else fact := fact(x-1)*x;end;var  A: array [1..10, 1..10] of real;  i, j, N: longint;begin  write('Введите размер квадратной матрицы: '); readln(N);  for i := 1 to N do  begin    for j := 1 to N do    begin      A[i, j] := fact(i)-fact(j);      write(A[i, j]:8);    end;    writeln;  end;end.