begin
 writeln('Posiciones');
 readfila(posiciones);
 while not filavacia(posiciones) do
  begin
   posicion:= primero(posiciones);
   LeerArreglo(Arreglo);
   if (posicion>1) and (maxcaracteres>posicion) then
     BorrarCaracter(Arreglo, posicion);
   apilar(basura, extraer(posiciones));
  end;
 MostrarArreglo(Arreglo);
 
end.