k:=mass[1,1]; for i:=1 to n do // n - размерность массива if mass[i,i] < k then message('элементы глав.диагонали не упорядочены по возрастанию') else k:=mass[i,i];