Составить программу поиска меньшего из двух чисел

type
matr= array [1..40,1..40] of integer;
var
a:array [1..40,1..40] of integer;
i,j,p,n,m:integer;
procedure FormMatrix(var b:matr;n,m:integer);
begin
  for i:=1 to n do
      for j:=1 to m do
        begin
          writeln('Введите элемент');
          readln(b[i,j]);
        end;
end;
procedure Print(b:matr;n,m:integer);
begin
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(b[i,j]:4);
         writeln;
    end;
end;
procedure Proiz(b:matr;n,m:integer);
var
p:integer;
begin
  p:=1;
    for i:=1 to n do
      for j:=1 to m do
        if b[i,j] <> 0 then
          p:=p*b[i,j];
 
   writeln('Произведение  ',p);
end;
 
begin
  writeln('Введите размер матрицы');
  readln(n,m);
   FormMatrix(a,n,m);
   Print(a,n,m);
   Proiz(a,n,m);
end.

var
a,b:integer;
procedure Poisk(a,b:integer);
begin
  if a > b then
    writeln('Меньшее число ', b);
  if a=b then
     writeln('Равны');
   if a < b then
     writeln('Меньшее число ', a);
end;
 
begin
  writeln('Введите числа');
  readln(a,b);
  Poisk(a,b);
end.

procedure min (a,b: integer; var c: integer);
begin
c:=a*ord(a<=b)+b*ord(b<a);
end;