Найти минимум и максимум в матрице, и поменять их местами

var
    mas: Array[Byte, Byte] Of ShortInt;
    temp: ShortInt;
    i, j, n, m, iMax, jMax, iMin, jMin: Byte;
begin
    Randomize;
    repeat
        Write('n='); ReadLn(n);
    until (n > 0);
    repeat
        Write('m='); ReadLn(m);
    until (m > 0);
    iMax := 0; jMax := 0; iMin := 0; jMin := 0;
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            mas[i, j] := Random(199) - 99;
            Write(mas[i, j]:4);
            if (mas[i, j] > mas[iMax, jMax])
            then
            begin
                iMax := i;
                jMax := j;
            end;
            if (mas[i, j] < mas[iMin, jMin])
            then
            begin
                iMin := i;
                jMin := j;
            end;
        end;
        WriteLn;
    end;
    temp := mas[iMax, jMax];
    mas[iMax, jMax] := mas[iMin, jMin];
    mas[iMin, jMin] := temp;
    WriteLn; WriteLn;
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
            Write(mas[i, j]:4);
        WriteLn;
    end;
end.

   mas: Array[Byte, Byte] Of ShortInt;
    temp: ShortInt;

uses crt;
var a:array[1..5,1..5] of integer;
i,j:integer;
begin