loop
                  E := Element (To_Unbounded_String (Text), I);
                  case E is
                     when '1' | '2' | '3' | '4' | '5' | '6' | '7' | '8' | '9' | '0' =>
                        Field := (Field & E);
                        I := I + 1;
                        K := 1;
                     when others => if K = 0 then
                                       Field := (Field & '0');
                                    end if;
                                    exit;
                  end case;
             --     Put (I);Put ("E");