Print array A (N). Print data on the number of zero elements of the array and their

Print array A (N). Print data on the number of zero elements of the array and their numbers. If there are none, print a message about it

var
number, count: integer;
arr: array [1..10] of integer;

begin
for number: = 1 to 10 do
begin
arr [number]: = random (10);
write (arr [number]: 5);
end;
writeln ();
writeln (‘Non-zero array elements:’);
for number: = 1 to 10 do
begin
if not (arr [number] = 0) then
begin
count: = count + 1;
writeln (‘item’, arr [number]: 3, ‘at position’, number: 3);
end
end;
if count = 0 then
write (‘there are no non-zero elements’);
end.