program mat;
uses
  SysUtils;
type matice=array [1..100,1..100] of integer;
var
  a:matice;
  m,n,min:integer;
procedure napis(rad,sl:integer;var d_mat:matice);
var
  i,j:integer;
begin
  for i:=1 to rad do
  begin
    for j:=1 to sl do
    begin
      writeln('Zadej pole ',i,', ',j);
      readln(d_mat[i,j]);
    end;
  end;
end;
procedure najdi(rad,sl:integer;d_mat:matice;var minimum:integer);
var
  i,j:integer;
begin
  minimum:=a[1,1];
  for i:=1 to m do
    for j:=1 to n do
      if (minimum>a[i,j]) then
        minimum:=a[i,j];
end;
begin
  writeln('Zadej pocet radku:');
  readln(m);
  writeln('Zadej pocet sloupcu:');
  readln(n);
  napis(m,n,a);
  najdi(m,n,a,min);
  writeln('Nejmensi cislo z matice je ',min);
  readln;
end.