дописать вывод матрицы

uses crt;
type m1=array[1..10] of real;
     m2=array[1..10] of real;
var i,j,k,n,m:integer;
a:array[1..10,1..10] of real;
f1,f2:real;
min:m1;
begin
clrscr;
write('n=');
readln(n);
begin
for i:=1 to n do
if i=5 then f1:=1
else
m:=abs(i-5);
F1:=1;
begin
for k:=1 to m do
f1:=f1*k;
end;
begin
for j:=1 to n do
if j=4 then F2:=1
else
m:=abs(j-4);
F2:=1;
begin
 for k:=1 to m do
 f2:=f2*k;
a[i,j]:=f1*f2/(i*j);
end;
end;
end;
begin
for i:=1 to n do
min[i]:=a[i,1];
begin
for j:=1 to n do
if min[i]<a[i,j] then
min[i]:=a[i,j];
end;
end;
begin
for i:=1 to n do
write(min[i]:8:4);
end;
end.

uses crt;
 
type
  m1 = array[1..10] of real; 
 
var
  i, j, k, n, m: integer;
  a: array[1..10, 1..10] of real;
  f1, f2: real;
  min: m1;
 
begin
  clrscr;
  
  write('n=');
  readln(n);
  
  for i := 1 to n do
  begin
    if i = 5 then f1 := 1
    else
    begin
      m := abs(i - 5);
      F1 := 1;
      for k := 1 to m do
        f1 := f1 * k;
    end;  
    
    for j := 1 to n do
    begin
      if j = 4 then F2 := 1
      else
      begin
        m := abs(j - 4);
        F2 := 1;
        for k := 1 to m do
          f2 := f2 * k;
      end;  
     
    a[i, j] := f1 * f2 / (i * j);
     end;
  end;  
 
  // вывод  
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:8:4);
    writeln;
  end;
  writeln;
   
  for i := 1 to n do
  begin
    min[i] := a[i, 1];
    for j := 1 to n do
      if min[i] > a[i, j] then
        min[i] := a[i, j];
  end;
  
  for i := 1 to n do
    write(min[i]:8:4);
  writeln;
end.