Найти количество отрицательных элементов в каждом столбце матрицы размером 2х6, состоящей из элементов целого типа — Pascal(Паскаль)

uses CRT;
 
const nrow = 2; {максимальное количество строк}
      ncol = 6; {максимальное количество столбцов}
 
var matrix : array[1..nrow, 1..ncol] of Integer;  {наш массив чисел}
    counts : array[1..ncol] of integer; {матрица количеств, ее кажды элемент - количество отр значений в исходной матрице}
 
begin
  ClrScr; {чистим экран}
  
  { ЗАБИВАЕМ СЛУЧАЙНЫМИ ЗНАЧЕНИЯМИ }
  Randomize;
  for r:=1 to nrow do
  begin
    for c:=1 to ncol do
    begin
      matrix[r, c] := Random(100)-50;
      Write(matrix[r, c]:4); {отображаем на дисплее сгенерированное число}
    end;
    WriteLn;
    {заполняем так же матрицу количеств}
    counts[r] := 0;
  end;
 
  WriteLn;
  WriteLn('КОЛИЧЕСТВО ОТРИЦАТЕЛЬНЫХ ЭЛЕМЕНТОВ ПО СТОЛБЦАМ');
  for c:=1 to ncol do
  begin
    for r:=1 to nrow do
      if matrix[r, c]<0 then
      begin
        {мы нашли отрицательное число}
        Inc(counts[c]);
      end;
    {мы подсчитали, теперь нужно отобразить на экране}
    Write(counts[c]:4);
  end;
  
  Write('Для продолжения нажмите любую клавишу...');
  ReadLn;    
end.