Вычислить суммы модулей в диагоналях матрицы, параллельных побочной

program decision4_2;                                              {Название программы}                                                   
const nmax=100;                                                   {Описание константы} 
var h:array[1..nmax,1..nmax]of integer;                           {Описание двумерного массива}
    n,i,j,d,s,mn:integer;                                         {Описание переменных}                                   
begin                                                             {Начало программы}                                                 
repeat                                                            {Оператор цикла}
write('         Введите размер матрицы до ',nmax,' n=');          {Вывод сообщения на экран}
readln(n);                                                        {Ввод размерности матрицы}
writeln('====================================================');
until n in [1..nmax];                                             {Числа между n и до nmax}
writeln('                  Исходная матрица:');
writeln('====================================================');
for i:=1 to n do                                                 
 begin
  for j:=1 to n do
   begin
    h[i,j]:=random(15);                                          {Генерация случайных чисел}                                        
    write(h[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Суммы модулей в диагоналях, параллельных побочной:');
writeln('====================================================');
mn:=abs(h[1,1]);                                                 
for d:=1 to 2*n-1 do                                             {Количество диагоналей, параллелных побочной}
 begin
  if d>n then                                                    {Элементы ниже диагонали}
   begin
    s:=0;
    for i:=n downto d-n+1 do
    s:=s+abs(h[i,d-i+1]);
    if s<mn then mn:=s;
    writeln('Диагональ [',d-n+1,',',n,']-[',n,',',d-n+1,'] = ',s);
    
   end
  else if d<n then                                              {Выше побочной диагонали}
   begin
    s:=0;
    for i:=d downto 1 do                                       
    s:=s+abs(h[i,d-i+1]);                                        {Вычисление суммы элементов }
    if s<mn then mn:=s;
    writeln('Диагональ [1,',d,']-[',d,',1] = ',s);
   end;
 end;
 writeln;
write('Минимальная сумма=',mn);
writeln;writeln;
end.                                                              {конец программы}