Дан массив из 10 элементов. Вывести на экран номера нулевых элементов. (Паскаль)

program PR;
var
M:array[1..10] of integer;
I:bite;
begin
for i:=1 to 10 do begin
write('введите эл-т массива');
readln(M[I]);
end;
writeln('Индексы нулевых элементов');
for i:=1 to 10 do if M[I]=0 then writeln(I);
readln;
end.