Как составить постановку, алгоритм и в pascale программу подсчитывающую количество положительных элементов массива w из 9 чисел. значения элементов массива ввести с клавиатуры. только можно поподробней)

Var
W:Array[1..9] of Integer;
i,k:Integer;
Begin
 for i:=1 to 9 do
  Read(W[i]);
for i:=1 to 9 do
 if (W[i]>0) then k:=k+1;
Writeln(k);
end.