сделать программку для нахождения в данном массиве элементов одинаковых 0

Const ar:array[1..6] of integer = (1,0,4,-6,0,1);

var i,n:byte;
begin
  writeln('исходный массив');  
  for i:=1 to 6 do
    write(ar[i],'  ');

  n:=0;//количество отысканных     
  for i:=1 to 6 do
    if ar[i]=0 then
      n:=n+1;
 
  writeln();
  writeln();
  writeln('Найдено ', n, ' частей равных 0');
end.