Поиск элемента в массиве методом дихотомии

program prg5;
uses crt;
type TMatrix=array[1..15,1..15]of integer;
procedure InputMatrix(var a:tMatrix;m,n:byte);
   var i,j:byte;
       q:char;
   begin
   Writeln('Input by hand?(y/n)');
   Readln(q);
   Randomize;
   for i:=1 to m do
      for j:=1 to n do
      if (q<>'y')and(q<>'Y')then
      a[i,j]:=random(99)
      else begin
      write('A[',i,',',j,']=');readln(a[i,j]);
      end;
   end;
procedure OutputMatrix(const a:TMatrix;m,n:byte);
   var i,j:byte;
   begin
   for i:=1 to m do
       begin for j:=1 to n do
       write(a[i,j]:4);
       writeln;end;
   end;
procedure MinMax(const a:TMatrix;m,n,i:byte;var j1,j2:byte);
   var j:byte;
       Min,Max:integer;
   begin
   j1:=1;j2:=1;
   Min:=a[i,1];Max:=a[i,1];
   for j:=1 to n do
       begin
       if a[i,j]<min then begin min:=a[i,j]; j1:=j end;
       if a[i,j]>max then begin max:=a[i,j]; j2:=j end;
       end;
   if j1>j2 then begin
       j:=j1; j1:=j2; j2:=j end;
   end;
procedure Sort(var a:TMatrix;m,n,l,j1,j2:byte);
   var i,j:byte;b:integer;
   begin
   for i:=j2 downto j1 do
       begin
       b:=a[l,i];
       j:=i;
       while (a[l,j+1]>b)and(j<j2)do
             begin
             a[l,j]:=a[l,j+1];
             j:=j+1;
             end;
       a[l,j]:=b;
       end;
   end;
procedure Main(var a:tmatrix;m,n:byte);
   var i,j,j1,j2:byte;
   begin
   for i:=1 to m do begin
   MinMax(a,m,n,i,j1,j2);
   Sort(a,m,n,i,j1,j2); end;
   end;
var Matrix:TMatrix;
    m,n:byte;
begin
     clrscr;
     write('m=');readln(m);
     write('n=');readln(n);
     InputMatrix(Matrix,m,n);
     OutPutMatrix(Matrix,m,n);
     Main(Matrix,m,n);
     writeln('Result:');
     OutPutMatrix(Matrix,m,n);
 
     readln;
end.

uses crt;
var a:array[1..20] of integer;
    ng,vg,i,j,n,key,k,x:integer;
    f1:boolean;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
 begin
  a[i]:=random(20);
  Write(a[i]:4);
 end;
Writeln;
for i:=1 to n do
for j:=1 to n do
 if a[i]<a[j] then
  begin
   x:=a[i];
   a[i]:=a[j];
   a[j]:=x;
  end;
for i:=1 to n do
 Write(a[i]:4);
Writeln;
ng:=1;
vg:=n;
f1:=false;
k:=0;
Writeln('Key ');
Readln(key);
while (ng<=vg) and not f1 do
 begin
  i:=(ng+vg) div 2;
  if key<a[i] then
   vg:=i-1
  else
   if key>a[i] then
    ng:=i+1
   else
    begin
     f1:=true;
     k:=i;
    end
 end;
Writeln('K= ',k);
Readln;
end.