Замените нулями все положительные элементы одномерного массива A длины N

Pascal  const      k = 10;  var    a : array [1..k] of integer;    b,n,i,l : integer;      begin   //Формирование массива пропускаю   readln (n); // считываем длину      //обработка массива   for i := 1 to k do    begin     l := 0;     b := a[i];     While b > 0 do      begin      b := b div 10;      l := l +1;      end;     if l = n then      a[i] := 0;    end;        //вывод массива    writeln();    for i := 1 to k do     write (a[i],' ');  end.