Посмотрите пожалуйста что тут у меня не правильно

Program pr_7;
uses crt;
var a:matr;
n,m,j:byte;
mx:integer;
begin
randomize;
Matrix(a,n,m);
mx:Min(a[1],n);
for j:=1 to m do
if Min(a[j],n).mx then mx:=Min(a[j],n);
write('наибольший из минимальных элементов столбцов=',mx)
end.
unit My_unit;
interface
const nmax=20;
type mas=array[1..nmax] of integer;
matr=array[1..nmax] of mas;
procedure Matrix(var a:matr;var n,m:byte);
function Min(a:mas;n:byte):integer;
implementation
procedure Matrix(var a:matr;var n,m:byte);
var i,j:byte;
begin
repeat
write('Количество строк до',nmax,'n=');
read(n);
until n in [1..nmax];
repeat
write('Количество столбцов до',nmax,'m=');
read(m);
until n in [1..nmax];
for j:=1 to m do
for i:=1 to n do
a[j][i]:=random(50);
writeln('Матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(a[j][i]:4);//вводим марицу построчно
writeln;
end;
end;
function Min(a:mas;n:byte):integer;//поиск минмимального в столбце-массиве
var i:byte;
mn:integer;
begin
mn:=a[1];
for i:=1 to n do
if a[i]<mn then mn:=a[i];
Min:=mn;
end;
end.

Program pr6;
uses crt;
const
a=3.5;
b=0.05;
c=-6.3;
d=1.1;
m=12;
var
  Xk,Yn,X,Y,fxy,mass: Real;
  k,n: integer;
  mas:array[1..M,1..M] of real;
begin
clrscr;
  for k:=1 to M do
    for n:=1 to M do
      begin
        Xk:=a+b*k;
        Yn:=c+d*n;
        fxy:=(-9*sin(5*Yn)*(Ln(Xk)-(3*(cos(Yn)*cos(Yn)))));
          mas[k,n]:=fxy;
      end;
for k:=1 to M do
    begin
       for n:=1 to M do
        Write (mas[k,n]:6:1);
      writeln;
    end;
    writeln('vivod stolb');
For k:=1 to m do
Write (mas[k,n]:6:1);
WriteLn;
Xk:=a+b*k;
Yn:=c+d*n;
writeln('Xk=',xk,'   Yn=',yn);
end.