Дана квадратная матрица .В побочной диагонали найти колличество отрицательных элементов

Program Matrica_Random;
 
Uses crt;   // подключаем модули
 
const m=5; n=5; // константые значения переменных
 
Type
mat = array [1..m,1..n] of integer ;
 
var
a:mat;
i,j,kol:integer; // индексы массива
 
begin // начало основной программы
 
 clrscr;   // очищает текстовое окно
 randomize; // активирован Генератор Случайных Чисел ( Г.С.Ч. )
//------------------------------------------------------------------------------ // формируем матрицу
 Writeln('Исходная матрица:');
 For i:=1 to m do    // цикл для перебора всех строк
    begin
    For j:=1 to n do   // перебор всех элементов строки по столбцам
       begin
       a[i,j]:=random(9)-5;  // элементу, стоящему в i -й строке и j -м столбце, присваивается «случайное» целое число в диапазоне от 1 до 9
       write(a[i,j]:4);  // вывод элемента, стоящего в i -й строке и j -м столбце, при этом для вывода каждого элемента отводится 4 позиции
       end;
    If a[i,m-i+1]<0 then inc(kol); // количество отриц. эл-тов
    writeln;           // перевод курсора на следующую строку
    end;
//------------------------------------------------------------------------------ // матрица сформирована
Writeln('Количество - ',kol);
 
 readkey; // читает символ из буфера клавиатуры.
end.