Перевод из С++ в Паскаль.Записать в выходной файл построчно все ключевые слова, встречающиеся в этой программе

#include <algorithm>
#include <fstream>
#include <locale>
#include <map>
#include <set>
#include <string>
 
class OnlyLetters : public std::ctype<char>
{
public:
    explicit OnlyLetters(size_t refs = 0) : ctype(newTable, false, refs)
    {
        const mask* oldTable = classic_table();
        std::transform(
            oldTable, oldTable + table_size, newTable,
            [](mask m) { return m & alpha ? m : m | space; }
            );
    }
private:
    mask newTable[table_size];
};
 
 
int main()
{
    std::ifstream fin("input.txt");
    fin.imbue(std::locale(fin.getloc(), new OnlyLetters));
 
    const std::set<std::string> keywords = {
        "uses", "type", "var", "begin", "end", /*...*/
        };
    std::map<std::string, unsigned> wordCounts;
    std::string word;
    while (fin >> word)
        if (keywords.count(word) != 0)
            ++wordCounts[word];
 
    std::ofstream fout("output.txt", std::ios::out | std::ios::trunc);
    for (const auto& wordCount : wordCounts)
        fout << wordCount.first << " => " << wordCount.second << "\n";
}