program najdi_max;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
  rozmer=20;
type
  matice=array[1..rozmer,1..rozmer] of integer;
var
  tab:matice;
  m,n,zam,mes,max:integer;
procedure ctimat(rad,sl:integer;var a:matice);
var
  i,j:integer;
begin
  writeln('Zadej ',rad,' * ',sl,' hodnot po radcich:');
  for i:=1 to rad do
    for j:=1 to sl do
      readln(a[i,j]);
end;
procedure maxmat(rad,sl:integer;a:matice;var prvni,druhy,treti:integer);
var
  i,j:integer;
begin
  treti:=-1;
  for i:=1 to rad do
    for j:=1 to sl do
      if a[i,j]>treti then
        begin
          treti:=a[i,j];
          prvni:=i;
          druhy:=j;
    end;
end;
function najdi_min(rad,sl:integer;a:matice):integer;
var
  i,j,minimum: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];
  najdi_min:=minimum;
end;
begin
  writeln('Zadej pocet radku');
  readln(m);
  writeln('Zadej pocet sloupcu');
  readln(n);
  ctimat(m,n,tab);
  maxmat(m,n,tab,zam,mes,max);
  writeln('Nejvetsi plat ',max,' ma zamestnanec ',zam,' v mesici ',mes);
  writeln('Nejmensi plat je ',najdi_min(m,n,tab));
  readln;
end.