{ File: sol1-2.pas }

{ Scopo: soluzione secondo esercizio della prima simulazione di una prova di
         esonero }

function Esercizio2 (var f          : text;
                     h1, h2, k1, k2 : integer): integer;
var
  i       : 1..N;
  j       : 1..M;
  mat     : TipoMatrice;
  massimo : integer;

begin
  for i := 1 to N do
    for j := 1 to M do
      read(f, mat[i,j]);

  massimo := -MAXINT;
  for i := h1 to h2 do
    for j := k1 to k2 do
      if mat[i,j] > massimo then massimo := mat[i,j];
  Esercizio2 := massimo
end; { Esercizio2 }