Найти разность между минимальным и максимальным элементами матрицы

program test;
const m=5; n=6;
var a:array[1..m,1..n] of integer; {eto razmeri matritsi}
i,j,max,min,kol,raz:integer; {peremennie}
begin
randomize;
for i:=1 to m do
for j:=1 to n do
begin
a[i,j]:=random(20); {zapolneaem matritsu}
if (i=1) and (j=1) then {esli pervii element matristi}
begin
max:=a[i,j]; min:=a[i,j]; {max i min ravni pervomu elementu}
end
else
begin
if max<a[i,j] then max:=a[i,j]; {smotrim esli element bolishe max}
if min>a[i,j] then min:=a[i,j]; {smotrim esli element menishe min}
end;
end;
raz:=max-min; {raznitsa mejdu max i min}
kol:=0;
for i:=1 to m do
begin
for j:=1 to n do
begin
write(a[i,j],' '); {vivodim matritsu na ecran}
if a[i,j]<raz then inc(kol); {esli element menishe raznitsi kol uvelichivaem na 1}
end;
writeln;
end;
writeln;
writeln('max=',max);
writeln('min=',min);
writeln('raznitsa mejdu max i min ',raz);
writeln('kolichestvo elementov menishe raznitsi ',kol);
readln;
end.