помогите решить задачку по информатике на паскале. найти минимальный и максимальный элемент двухмерного массива

Программа:
var
A : array [1..10, 1..10] of Integer;
Row, Col : Byte;
rMin, rMax, cMin, cMax : Byte;
begin
Randomize;
WriteLn('Массив: ');
rMin := 1; rMax := 1;
cMin := 1; cMax := 1;
for Row := 1 to 10 do
begin
for Col := 1 to 10 do
begin
A[Row, Col] := Random(100);
Write(A[Row, Col]:3);
if A[Row, Col] < A[rMin, cMin] then begin rMin := Row; cMin := Col; end;
if A[Row, Col] > A[rMax, cMax] then begin rMax := Row; cMax := Col; end;
end;
WriteLn;
end;
WriteLn('Минимальный элемент A[', rMin, ',', cMin, '] = ', A[rMin, cMin]);
WriteLn('Максимальный элемент A[', rMax, ',', cMax, '] = ', A[rMax, cMax]);
end.
Результат:
Массив:
94 25 7 86 57 16 28 16 56 14
78 63 82 86 82 62 80 37 18 4
60 56 3 87 83 25 66 89 49 48
26 69 25 29 96 34 75 95 63 73
40 24 50 88 82 36 45 84 63 87
66 5 2 94 75 37 21 19 3 32
50 39 67 7 87 8 37 53 89 48
86 84 73 45 63 36 5 15 5 47
79 81 26 61 81 21 66 30 53 59
13 56 92 31 22 1 56 42 1 74
Минимальный элемент A[10,6] = 1
Максимальный элемент A[4,5] = 96