Дан одномерный массив состоящий из 10 элементов. все элементы меньше 15 заменить на 0 и подсчитать количество замен

Var
n,i: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
read (a[i]);
 if a[i]<15 then
 begin
  a[i]:=0;
  n:=n+1;
 end;
 end;
 writeln ('zamen=',n);
end.