В двумерном массиве, введёном случайными числами найти минимальное и максимальное значения, их номера и поменять их местами. ! ПОЖАЛУЙСТ

В двумерном массиве, введёном случайными числами найти минимальное и максимальное значения, их номера и поменять их местами. !!!!!!!ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!

  • program pr1;
    var
    m:array[1..100,1..100] of integer;
    i,j,a,b,max,min,k,n,z:integer;
    begin
    randomize;
    max:=0;
    min:=100;
    for i:=1 to 4 do
    for j:=1 to 4 do
    m[i,j]:=random(100);
    for i:=1 to 4 do
    for j:=1 to 4 do
    begin
    writeln(m[i,j]);
    if m[i,j]>=max then begin max:=m[i,j];k:=i;n:=j; end;
    if m[i,j]<=min then begin min:=m[i,j];a:=i;b:=j; end;
    end;
    z:=m[k,n];
    m[k,n]:=m[a,b];
    m[a,b]:=z;
    writeln('');
    for i:=1 to 4 do
    for j:=1 to 4 do
    writeln(m[i,j]);
    readln;
    end.

    колличество элементов массива и диапазон рандома выбери сама