В заданной матрице найти наибольший и наименьший элементы

uses crt;
var d: array [1..100,1..100] of integer;
    n,i,j,max,min,imax,imin,jmax,jmin,buf: integer;
begin
write('Размер матрицы ');
readln(n);
writeln('Исходная матрица');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        d[i,j]:=random(201)-100;
        write(d[i,j]:4);
        end;
    writeln;
    end;
max:=d[1,1]; min:=d[1,1];
jmax:=1; jmin:=1;
imax:=1; imin:=1;
writeln;
for i:=1 to n do
    for j:=1 to n do
        begin
        if d[i,j]>max then
           begin
           max:=d[i,j]; jmax:=j; imax:=i;
           end;
        if d[i,j]<min then
           begin
           min:=d[i,j]; jmin:=j; imin:=i;
           end;
        end;
buf:=d[1,1]; d[1,1]:=d[imax,jmax]; d[imax,jmax]:=d[1,1];
buf:=d[n,n]; d[n,n]:=d[imin,jmin]; d[imin,jmin]:=d[n,n];
writeln('Максимальный элемент =',max:4,' в ',imax,' строке ',jmax,' столбце');
writeln('Минимальный элемент  =',min:4,' в ',imin,' строке ',jmin,' столбце');
writeln('Итоговая матрица');
for i:=1 to n do
    begin
    for j:=1 to n do
        write(d[i,j]:4);
    writeln;
    end;
end.