...
const n = 9; \\кол-во елементов
var i, j, max: word;
mas: array[1..N, 1..N] of byte; \\наш массив

begin

  max := mas[1,1];
  for i:=1 to N do                  \\проходим по х
    for j:=1 to N do                \\проходим по у
      if mas[i, j] > max then    \\если текущий больше макс
        max := mas[i, j];           \\то он станет макс
  caption := IntToStr(max);  

end;