Помогите решить на С++ и Pascal либо в чем то одном)

include lt;iostreamgt; // header input/output streams

include lt;stringgt;

using std::string;

include lt;mapgt;

using std::map;

using std::cin; // для работы cin

using std::cout; // для работы cout

using std::endl; // для работы перевода на новейшую строчку endl

int main()

unsigned int n;

  cin gt;gt; n;

  string st;

  cin gt;gt; st;

  maplt;char, intgt; a;

  for (auto i = st.begin(); ilt;st.end(); ++i)

     try

       a[*i]++;

     catch(std::exceptionamp;e)

       a.insert(std::make_pair(*i,1));

for (auto i = a.begin(); i!=a.end();++i)

    cout lt;lt; i-gt;first  lt;lt; ' ' lt;lt;  i-gt;second lt;lt; endl;