На одномерном массиве из N чисел вывести на экран отрицательные элементы и сообщения об их количестве

Const n=10;
var
a: array [1..n] of integer;
i, k: integer;
begin
for i:=1 to n do
begin
write(a[, i, ] = );
readln(a[i]);
end;
for i:=1 to n do
if a[i]begin
write(a[i], );
k:=k+1;
end;
writeln;
writeln(Количество: , k);
end.