Найти кол-во отрицательных чисел этого массива const n=15; var a: array[1..n] of integer; i,k: integer; begin randomize;

Программа стала работоспособной после добавления кода, который выделен жирным начертанием. 

program arr; const n=15; var a: array[1..n] of integer; i, k: integer; begin randomize; k:=0; for i:=1 to n do a[i]:= random(51)-25; for i:=1 to n do write(a[i]:4); writeln; for i:=1 to n do if a[i] < 0 then k:= k + 1; writeln(\'Кол-во отрицательных чисел: \', k ); end.