Массив. Выяснить, сколько отрицательных элементов содержит матрица

Program pr1;
type
  mas= array [1..100,1..100] of real;            
var
  a:mas;
  n,i,j,kol:integer;
begin
Write('Введите n=');
read(n);
for i:=1 to n do begin                   //Цикл строки
   for j:=1 to n do                      // Цикл столбца
      a[i,j]:=sin(i+j/2);               // Заполнение
end;
kol:=0;                                
for i:=1 to n do begin                   //Цикл строки            ищем кол отр элементов  и выводим массив       
   for j:=1 to n do              // Цикл столбца
      if a[i,j]<0 then kol:=kol+1;      // если число меньше нуля плюсуем 
end;
 
for i:=1 to n do begin                   //Цикл строки
   for j:=1 to n do                      // Цикл столбца
      Write(a[i,j]:6:2);               //  вывод массива
      Writeln;  
end;
Writeln('Kol=',kol);                // кол отр элементов
end.

алг Кол отр (арг цел n,i,j,kol, арг вещ таб A[1:N])
дано  N>0
надо  kol - число отрецательных элементов в таблице А
нач
 Ввод (n)
нц для i от 1 до n 
   нач
     нц для j от 1 до n
      a[i,j]:=sin(i+j/2);
     кц 
  кон   
кц
нц для i от 1 до n 
   нач
     нц для j от 1 до n
      если a[i,j]<0 то kol:=kol+1;
     кц
  кон 
кц
нц для i от 1 до n 
   нач
     нц для j от 1 до n
      вывод a[i,j]
     кц
  кон 
цк
 Вывод 'kol=' kol
кон