Массив: Найти диапазон значений по модулю и след матрицы...

var m:array[1..15,1..15] of integer;
    n,a,b,i,j,mx,mn,sl:integer;
begin
repeat
write('Введите размер массива от 3 до 15 n=');
readln(n);
until n in [3..15];
repeat
writeln('Введите диапазон a<b');
readln(a,b);
until a<b;
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    m[i,j]:=a+random(b-a+1);
    write(m[i,j]:5);
   end;
  writeln;
 end;
mn:=abs(m[1,1]);
mx:=mn;
sl:=0;
for i:=1 to n do
for j:=1 to n do
 begin
  if abs(m[i,j])<mn then mn:=abs(m[i,j])
  else if abs(m[i,j])>mx then mx:=abs(m[i,j]);
  if j=i then inc(sl,m[i,j]);
 end;
writeln('Диапазон значений по модулю =[',mn,'...',mx,']');
writeln('След матрицы=',sl);
for i:=1 to n div 2 do
for j:=1 to n do
 begin
  a:=m[i,j];
  m[i,j]:=m[n-i+1,j];
  m[n-i+1,j]:=a;
 end;
writeln('Массив, отраженный по горизонтали');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(m[i,j]:5);
  writeln;
 end;
end.