Найти наибольший элемент двумерного массива. В паскале. Обязательно использовать функцию или процедуру

const n=5;var i,j:integer;a:array[1..n,1..n] of integer;Max:integer;procedure p_max(input_mass:integer);begin if input_mass>Max then   Max:=input_mass;end;//Заполняем массивprocedure zapolnenue;var i,j:integer;beginfor i:=1 to n do   for j:=1 to n do      a[i,j]:=Random(1000);end;beginRandomize;zapolnenue;writeln('Массив:');for i:=1 to n dobegin   for j:=1 to n do   begin      write(a[i,j],' ');      p_max(a[i,j]);   end;   writeln;end;writeln;writeln('Max = ',Max);end.