Найти минимальный и максимальный элементы в матрице

uses crt;
const n=4; m=4;
var a:array[1..n,1..m]of integer;
i,j,mini,minj,maxi,maxj,s,max:integer;
 
begin
    clrscr;
    randomize;
    writeln('Исходная матрица');
    for i:=1 to n do
    begin 
        for j:=1 to m do
        begin
            a[i,j]:=random(100);
            write(a[i,j]:3);
        end;
        writeln;
    end;
 
    mini := 1;
    minj := 1;
    maxi := 2;
    maxj := 2;
    for i:=1 to N do for j:=1 to M do if a[i,j] < a[mini,minj] then
    begin
        mini := i;
        minj := j;
    end else if a[i,j] > a[maxi,maxj] then
    begin
        maxi := i;
        maxj := j;
    end;
 
    writeln('MIN - A[',mini,',',minj,'] = ',a[mini,minj]);
    writeln('MAX - A[',maxi,',',maxj,'] = ',a[maxi,maxj]);
    
    max:=0;
    for j:=1 to M do max:=max+a[1,j];
    maxi:=1;
    for i:=2 to N do
    begin
       s:=0;
       for j:=1 to M do s:=s+a[i,j];
       if s>max then
       begin
          max:=s;
          maxi:=i;
       end;
    end;
 
    for j:=1 to M do write(a[maxi,j],' ');
    readln; 
end.