2 матрицы 7на7 разброс -99..99

[puporev]

Побочная диагональ это линейный массив из семи чисел. Если они все у тебя 0, то либо не создана матрица, либо при создании массива указана ссылка на несущесевующую матрицу. Естественоо после сортировки тоже будут ноли.
Чтобы все матрицы и массивы появились на экране одновременно, нужно readln написать один раз перед последним end.
Чтобы все матрицы и массивы появились на экране постепенно, по нажатии клавиши Enter, нужно писать readln; после сздания каждой матрицы и массива. Вообще, если хочешь что-то вывести на экран, поле write или writeln нужно писать readln;.
Прилагаю две программы, которые это иллюстрируют, разберись, напиши сам какую-нибудь простую программу, потренируйся, иначе устно все равно не дойдет.