Составьте блок схему и программу для подсчёта количества отрицательных элементов массива (массив с клавиатуры).

Блок схему лень, но вот программа:
program Ok;
var
A:array[1..10] of integer;
i,x:integer;
begin
x:=0;
for i:=1 to 10 do
read(A[i]);
for i:=1 to 10 do
if(A[i] < 0) then
x:=x+1;
write('Кол-во отрицательных элементов массива = ', x);
end.