Расстояние между max и min в матрице - Pascal ABC

Формулировка задачи:

Народ, составил прогу по вычислению максимума и минимума в матрице. Осталось найти расстояние между этими же максимумом и минимумом. Как это можно сделать?

                    Листинг программы
                
 
                        
                          
                    
 uses crt;
var i,j,n,m,min,max:integer;
a:array[0..100,0..100] of integer;
begin
clrscr;
readln(n,m);
for i:=0 to n-1 do
begin
for j:=0 to m-1 do
begin
a[i,j]:=random(100)-50;
write(' ',a[i,j]:4);
end;
writeln;
end;
begin
for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]>max then max:=a[i,j];
for j:=0 to m-1 do
for i:=0 to n-1 do
if a[i,j]<min then min:=a[i,j];
writeln(max);
writeln(min);
end;
end.

Решение задачи: «Расстояние между max и min в матрице»

Листинг программы

r:=abs((mn-mx)+1);

Объяснение кода листинга программы

mn и mx - это переменные, которые представляют собой минимальное и максимальное значение в матрице соответственно.
abs - это функция, которая возвращает абсолютное значение числа.
((mn-mx)+1) - это выражение, которое вычисляет разницу между минимальным и максимальным значением в матрице, а затем добавляет единицу. Это делается для того, чтобы получить расстояние между этими двумя значениями.
r - это переменная, которая хранит результат вычисления.