Pascalへの変換について

質問

C言語のプログラムをPascalに変更してほしいのですが
分かりません。

#include<iostream>
#include<list>
#include<utility>
#include<algorithm>
void output(const std::pair<char,int>&p){
std::cout << "入力文字'"<< p.first << "' 入力回数 "<< p.second << std::endl;
}
int main(){
typedef std::list<std::pair<char,int> >list_t;
list_t count;
for(char c;std::cin.get(c) && c != '.';){
if(c == '\n')continue;
list_t::iterator it = count.begin(),end=count.end();
for(;it != end;++it)
if(it->first == c)break;
if(it == end){
count.push_back(std::make_pair(c,0));
it = count.end();
--it;
}
++it->second;
}
std::for_each(count.begin(),count.end(),output);
}

よろしくお願いします

回答No.1

麻野 なぎ（@AsanoNagi）

もともとのプログラムが、Ｃ＋＋（の STL）の
練習問題風で、これを、Pascal に持って行く
のは無理でしょう。

「出現する文字の文字数をカウントする」プロ
グラムを、Pascal で新たに考えたほうがいいの
ではないかと思いますが。

元のプログラムも、「リスト構造の解説のため
にわざわざ面倒な方法でプログラムしました」
というような構造です。