Нахождение минимума в матрице

uses crt;
var a:array [1..100,1..100] of integer;
n,jmin, min,imin,m,j,i:integer;    p:real;
begin clrscr; randomize;
write('razermnost');
writeln;
readln(n);
readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(10)+1;
write(a[i,j]:3);
end;
writeln;
end;
min:=maxint;
for i:=1 to n do
for j:=1 to m do
if (j+i<n+1) and (a[i,j]<min) then begin
 
min:=a[i,j];
imin:=i;
jmin:=j;
end;
write('min=a[',imin,']=',min);
writeln;
 
end.

просто 
for i:=1 to n do
begin;
  etalon:=0;
  for j:=1 to n do
  begin
  if etalon>Tmas[i]
  then etalon:=Tmas[i];
end;
end;

uses crt;
const mas = 15;
var    a           : array [1..mas,1..mas] of integer;
       n, m, i, j,
       imin, jmin,
       min, minstr : integer;
 
BEGIN
   clrscr; randomize;
   repeat
     write('razmernost strok (ne bolee ',mas,'): ');readln(n);
   until (n>1) and (n<=mas);
   repeat
     write('razmernost stolbcov (ne bolee ',mas,'): ');readln(m);
   until (m>1) and (m<=mas);
   clrscr;
   writeln('Strok: ',n,'  stolbcov: ',m);writeln;
   min:=maxint;
   for i:=1 to n do
    begin
     for j:=1 to m do
      begin
        a[i,j]:=random(50)+1;
        if (a[i,j]<min) then
         begin
           min:=a[i,j];
           imin:=i;
           jmin:=j;
         end;
      end;
    end;
   write('Minimum matricy = ');textcolor(10);
   writeln(min);writeln;textcolor(7);
   for i:=1 to n do
    begin
     minstr:=a[i,1];
     for j:=1 to m do
      begin
        write(a[i,j]:4);
        if a[i,j]<minstr then minstr:=a[i,j];
      end;
      if minstr>min then
       begin
         textcolor(14);write(minstr:8);textcolor(7);
       end;
      writeln;
    end;writeln;
   writeln;
   readln;
END.

program dvumassiv;
 var A:array[1..100,1..100] of integer;
 var i, j, m, n, min:integer;
begin
 writeln('Введите количество строк и столбцов ');
 readln(m,n);
 writeln('Введите элементы массива построчно ');
  for i:=1 to m do
   for j:=1 to n do
  read(A[i,j]);
  writeln;
 
  for i:=1to m do 
   begin
    min:=A[i,1];
    for j:=1 to n do
     if A[i,j]<min then min:=A[i,j];
     writeln('Минимальный элемент в ', i, '-строке - ',min);
    end;
   readln;
  readln;
 end.

program dvumassiv;
 var A:array[1..100,1..100] of integer;
 var i, j, m, n, min, GlavMin:integer;
begin
 writeln('Введите количество строк и столбцов ');
 readln(m,n);
 writeln('Введите элементы массива построчно ');
  for i:=1 to m do
   for j:=1 to n do
  read(A[i,j]);
  writeln;
 
 GlavMin:=A[1,1];
 for i:=1 to m do
   for j:=1 to n do
    begin
     if A[i,j]<GlavMin then GlavMin:=A[i,j];
    end;
 writeln('Минимальный элемент матрицы - ', GlavMin);
 
  for i:=1 to m do 
   begin
    min:=A[i,1];
    for j:=1 to n do
     if (A[i,j]<min) and (A[i,j]>GlavMin) then min:=A[i,j];
     writeln('Минимальный элемент в ', i, '-строке - ',min);
    end;
   readln;
  readln;
 end.