Найти минимальный элемент среди столбцов матрицы которые упорядочены

uses crt;
const nmax=5000;
type mas=array[1..nmax] of real;
const glav:array[1..4] of string=('1-Zadanie1',
                                  '2-Zadanie2 ',
                                  '3-O razrabot',
                                  '4-Vihod');
      zadan1:array[1..6] of string=('1-Vvod iz faila',
                                  '2-Vvod c klaviaturi',
                                  '3-Obrabotka',
                                  '4-Vivod na ekran',
                                  '5-Vivod v fail',
                                  '6-O zadache');
      zadan2:array[1..6] of string=('1-Vvod iz faila',
                                  '2-Vvod c klaviaturi',
                                  '3-Obrabotka',
                                  '4-Vivod na ekran',
                                  '5-Vivod v fail',
                                  '6-O zadache');
var f1,f2,f3:boolean;
procedure Menyu(var k: byte;kol:byte);
var kod: char;
    i:byte;
begin
clrscr;
k:=1;
gotoxy(5,1);
k:=1;
repeat
  for i:=1 to kol do
   begin
     if i=k then
      begin
         textbackground(3);
         textcolor(12);
      end
     else
      begin
         textbackground(0);
         textcolor(15)
      end;
     gotoxy(12*(i-1)+1,1);
     write(glav[i]);
   end;
  repeat
  kod:=readkey;
  until kod in [#13, #75, #77];
  case kod of
  #75: begin
       k:=k-1;
       if k=0 then k:=kol;
       end;
  #77: begin
       k:=k+1;
       if k>kol then k:=1;
       end;
   end;
 until kod=#13;
end;
procedure SubMenyu(var k:byte;kol1,kol2,w:byte);
var kod: char;
    i:byte;
begin
window(1,1,80,25);
textbackground(0);
clrscr;
for i:=1 to kol2 do
 begin
  gotoxy(12*(i-1)+1,1);
  write(glav[i]);
 end;
k:=1;
gotoxy(4,2);
k:=1;
repeat
for i:=1 to kol1 do
 begin
  if i=k then
   begin
    textbackground(3);
    textcolor(9);
   end
  else  {остальные}
   begin
    textbackground(0);
    textcolor(15)
   end;
gotoxy(1,i+1);
case w of
1:write(zadan1[i]);
2:write(zadan2[i]);
end;
end;
repeat
kod:=readkey;
until Kod in [#13, #72, #80];
case kod of
#72: begin
     k:=k-1;
     if k=0 then k:=kol1;
     end;
#80: begin
     k:=k+1;
     if k>kol1 then k:=1;
     end;
end;
until kod=#13;
end;
Procedure Vvodfail;
var a : array [1..10,1..10] of integer;
    i,j,n,m : integer;
    s:real;
    f:text;
    name:string;
begin
clrscr;
write('Imya faila: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
  begin
   writeLn('fail ',name,' ne naiden!');
   writeLn('Rabota zaversena');
   readln;
   exit;
  end;
read(f,n,m);
for i := 1 to m do
 begin
  for j := 1 to n do
   begin
    read(f,a[i,j]);
    write(a[i,j]:3)
   end;
  writeLn('Dannie vvedeni');
 end;
 close(f);
readln;
end;
Procedure Vvodklav;
var a:array[1..10,1..10] of integer;
var i,j,n,m,t,min,f,f1,f2:integer;
Begin
clrscr;
write('M='); read(m);
write('N='); read(n);
for i:=1 to m do
  for j:=1 to n do begin
  write('a[',i,',',j,']=');
  read(a[i,j]);
  writeln('Dannie vvedeni');
end;
readkey
end;
Procedure Obrabot;
var a:array[1..10,1..10] of integer;
var i,j,n,m,t,min,min1,f,f1,f2:integer;
Vvodklav:boolean;
Begin
clrscr;
begin
t:=0;
for j:=1 to n do
 begin
  f:=0;
  i:=2;
  while(i<m)and(f=0) do
  if((a[i,j]<a[i-1,j])and(a[i,j]<a[i+1,j]))
  or((a[i,j]>a[i-1,j])and(a[i,j]>a[i+1,j]))then f:=1
  else i:=i+1;
  if f=0 then
   begin
    t:=t+1;
    min:=a[1,j];
    for i:=2 to m do
    if a[i,j]<min then min:=a[i,j];
    writeln('V stolbce ',j,' min=',min);
   end;
 if t=1 then min1:=min
  else if min<min1 then min1:=min;
 end;
writeln('Ishodnaya matrica');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln('Obrabotka zaversena')
 end;
readln;
end;
end;
Procedure Vivode;
var a:array[1..10,1..10] of integer;
var i,j,n,m,t,min,min1,f,f1,f2:integer;
Begin
clrscr;
writeln('Ishodnaya matrica');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
t:=0;
for j:=1 to n do
 begin
  f:=0;
  i:=2;
  while(i<m)and(f=0) do
  if((a[i,j]<a[i-1,j])and(a[i,j]<a[i+1,j]))
  or((a[i,j]>a[i-1,j])and(a[i,j]>a[i+1,j]))then f:=1
  else i:=i+1;
  if f=0 then
   begin
    t:=t+1;
    min:=a[1,j];
    for i:=2 to m do
    if a[i,j]<min then min:=a[i,j];
    writeln('V stolbce ',j,' min=',min);
   end;
 if t=1 then min1:=min
  else if min<min1 then min1:=min;
 end;
if t=0 then writeln('Net uporyadochennyh stolbcov')
else writeln('Iz nih min=',min1);
readln;
end;
Procedure Vivodf;
var f:text;
  var a:array[1..10,1..10] of integer;
var i,j,n,m,t,min,min1:integer;
Begin
assign(f,'rezult1.pas');
    rewrite(f);
    writeln(f,'результаты обработки матрицы:');
  writeln(f,'Ishodnaya matrica');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(f,a[i,j]:4);
  writeln;
 
    writeln(f);
 close(f);
readkey
end;
end;
Procedure about1;
Begin
readkey
end;
Procedure Vvodfail2;
var a:string;
b:array[1..10]of string;
c:array[1..10]of integer;
    i,j,n : integer;
    s:real;
    f:text;
    name:string;
begin
clrscr;
write('Imya faila: ');
readln(name);
name:=name+'.txt';
assign(f,name);
reset(f);
{$I-}if IOResult <> 0 then {$I+}
  begin
   writeLn('fail ',name,' ne naiden!');
   writeLn('Rabota zaversena');
   readln;
   exit;
  end;
  read(f,a);
  for i:=1 to n do
read(f,a);
 write(a);
 close(f);
  readln ;
end;
Procedure Vvodklav2;
var
a:string;
b:array[1..10]of string;
c:array[1..10]of integer;
i,j,k:integer;
begin
clrscr;
writeln('vvedite stroku');
readln(a);
readkey;
end;
Procedure Obrabot2;
var
a:string;
b:array[1..10]of string;
c:array[1..10]of integer;
i,j,k:integer;
Begin
clrscr;
a:=' '+a;
for i:=1 to length(a)do
if a[i] in [' ',',','.'] then inc(k)else b[k]:=b[k]+a[i];
for i:= 1 to k do
for j:=1 to i do
if b[i]=b[j] then inc (c[i]);
end;
Procedure Vivodf2;
Begin
readkey
end;
Procedure Vivode2;
var
a:string;
b:array[1..10]of string;
c:array[1..10]of integer;
i,j,k:integer;
Begin
clrscr;
for i:=1 to k do
if c[i]=1 then write(b[i],' ');
readln;
end;
Procedure aboutz2;
Begin
readkey
end;
Procedure razrab;
Begin
readkey
end;
{основная программа}
var c:mas;
    f:text;
    m,k,w:byte;
begin
textbackground(0);
textcolor(15);
clrscr;
f1:=false;
repeat
   textbackground(0);
   textcolor(15);
   Menyu(k,4);
   clrscr;
   case k of
   1:begin
     SubMenyu(w,6,4,1);
     case w of
     1:Vvodfail;
     2:Vvodklav;
     3:Obrabot;
     4:Vivode;
     5:Vivodf;
     6:about1;
     end;
     end;
   2:begin
     SubMenyu(w,6,4,2);
     case w of
     1:Vvodfail2;
     2:Vvodklav2;
     3:Obrabot2;
     4:Vivode2;
     5:Vivodf2;
     6:aboutz2;
     end;
     end;
   3:begin
     SubMenyu(w,1,4,3);
     razrab;;
     end;
   4:begin
      window(1,1,80,25);
      textbackground(0);
      clrscr;
      textcolor(15);
      writeln('Rabota zaversena nazmite enter');
      readln;
     end;
   end;
 until k=4;
end.