Добавить в код нахождение максимального числа в матрице

const 
    N = 3; M = 6;
var
    arr: array[1..N,1..M] of byte;
    i,j,a,b,buff: byte;
begin
    randomize;
    for i:=1 to N do begin
        for j:=1 to M do begin
            arr[i,j] := random(100);
            write(arr[i,j]:3);
        end;
        writeln;
    end;
    write('Какие столбцы поменять местами: ');
    readln(a,b);
    for i:=1 to N do begin
        buff := arr[i,a];
        arr[i,a] := arr[i,b];
        arr[i,b] := buff;
    end;
    for i:=1 to N do begin
        for j:=1 to M do
            write(arr[i,j]:3);
        writeln;
    end;
end.

var
    arr: array[1..N,1..M] of byte;
    i,j,a,b,buff,max: byte;
begin
randomize;
for i:=1 to N do
 begin
  for j:=1 to M do
   begin
    arr[i,j] := random(100);
    write(arr[i,j]:3);
    if i=1 then max:=arr[1,1] else
    if arr[i,j]>max then max:=arr[i,j];
   end;
  writeln;
 end;
writeln('Максимальный элемент=',max);