В одномерном массиве вычислить количество отрицательных элементов, меньше чем -k

constN=50; vararr: array [1 … N] of integer; i,tc,c: integer; beginc: =0; {otricatel'nie elementi}writeln ('Äëèíà ìàññèâà? '); readln (tc); {vvod massiva}for i: =1 to tc do readln (arr[i]); for i: =1 to tc do if arr[i]<0 then c: =c+1; writeln ('Otricatel'nih elementov=',c); end. Должно работать