Составить процедуру определения минимального значения и его адреса в одномерном массиве

program name;
uses crt;
const Nmax=100;
type massiv=array [1..Nmax] of integer;
     matrix=array [1..Nmax, 1..Nmax] of integer;
var
Aamount, Bamount:integer; z:massiv; AB:matrix;
i,j,k,a,b,min:integer;
procedure PrMin(n:integer; z:massiv; var min:integer; var k:integer);
 var i:integer;
 begin
  min:=z[1];
  k:=1;
  for i:=2 to n do
   if min > z[i] then
    begin
     min:=z[i];
     k:=i
    end;
 writeln('Минимальный элемент стобца ', i, ': ', min, ', его порядковый номер: ', k);
 end;
begin
clrscr;
write('Введите число строк матрицы: '); readln(Aamount);
write('Введите число столбцов матрицы: '); readln(Bamount);
writeln('Матрица: ');
for a:=1 to Aamount do
 begin
   for b:=1 to Bamount do
    begin
     AB[a,b]:=random(100);
     write(AB[a,b]:2, ' ');
   end;
 writeln;
 end;
// ??????
readkey
end.

for j:=1 to Bamount do begin
    for i:=1 to Aamount do z[i]:=AB[i,j];{первый столбец}
    PrMin(Aamount,z,min,k);
    if min<globalmin then begin {минимальный всей матрицы}
        globalmin:=min;
        global_K:=k;
    end;
end;

program paranoja;
uses crt;
const Nmax=100;
type massiv=array [1..Nmax] of integer;
     matrix=array [1..Nmax, 1..Nmax] of integer;
var
Aamount, Bamount:integer; z:massiv; AB:matrix;
i,j,k,tk,a,b,min,tmin:integer;
procedure PrMin(n:integer; z:massiv; var min:integer; var k:integer);
 var i:integer;
 begin
  min:=z[1];
  k:=1;
  for i:=2 to n do
   if min > z[i] then
    begin
     min:=z[i];
     k:=i;
    end;
   writeln('Минимальный элемент стобца ', i, ': ', min, ', его порядковый номер: ', k);
  end;
begin
clrscr;
randomize;
write('Введите число строк матрицы: '); readln(Aamount);
write('Введите число столбцов матрицы: '); readln(Bamount);
writeln('Матрица: ');
for a:=1 to Aamount do
 begin
   for b:=1 to Bamount do
    begin
     AB[a,b]:=random(100);
     write(AB[a,b]:2, ' ');
   end;
 writeln;
 end;
for j:=1 to Bamount do
  for i:=1 to Aamount do z[i]:=AB[i,j];
  PrMin (j,z,min,k);
readkey
end.

program paranoja;
uses crt;
const Nmax=100;
type massiv=array [1..Nmax] of integer;//столбец
     matrix=array [1..Nmax] of massiv;//массив столбцов
var Aamount, Bamount:integer;
    AB:matrix;
    i,j,min,max,k:integer;
procedure PrMin(n,p:integer; z:massiv; var min:integer; var k:integer);
 var i:integer;
 begin
  min:=z[1];
  k:=1;
  for i:=1 to n do
   if min > z[i] then
    begin
     min:=z[i];
     k:=i;
    end;
   writeln('Минимальный элемент столбца ', p, ': ', min, ', его порядковый номер: ', k);
  end;
begin
clrscr;
randomize;
write('Введите число строк матрицы: '); readln(Aamount);
write('Введите число столбцов матрицы: '); readln(Bamount);
writeln('Матрица: ');
for j:=1 to Bamount do
for i:=1 to Aamount do
AB[j][i]:=random(100);//заполним столбцы матрицы
for i:=1 to Aamount do
 begin
  for j:=1 to Bamount do//выведем матрицу по строкам
  write(AB[j][i]:4);
  writeln;
 end;
max:=-maxint-1;
for i:=1 to Bamount do
 begin
  PrMin (Aamount,i,AB[i],min,k);
  if min>max then max:=min;
 end;
writeln;
write('Из них максимальный=',max);
readkey
end.

mn:=maxint;//добавить mn в раздел var
for i:=1 to Bamount do
 begin
  PrMin (Aamount,i,AB[i],min,k);
  if min<mn then mn:=min;
 end;
writeln;
write('Из них минимальный=',mn);