Дан массив с количеством символов от от 1 до 10, задать строку из этого массива, найти в этой строке возможные нули и записать номера этих нулей в массив (очевидно другой) — Pascal(Паскаль)

var
a:string;
b:array[1..100]of integer;
i,k,f:integer;
begin
readln(a);
for i:=1 to length(a) do
if a[i]='0' then
begin
inc(k);
b[k]:=i;
f:=1;
end;
if f=0 then writeln('nuley net')
else begin
writeln('nuli imeyut nomera:');
for i:=1 to k do
write(b[i],' ');
end;
readln;
end.