перевод программы на паскаль

#include <iostream>
#include <string.h>
#include <conio.h>
using namespace std;
int main(){
     int mass[28];
     int i=0;
     for(;i<28;i++)mass[i]=0;
     cout << "Enter string: ";
     char s;
     do{          
          s = getche();
          mass[s-'A']++;          
     }
     while(s!='.');               
     int max=mass[0];
     int sum=0;
     for(i=0;i<28;i++)sum+=mass[i];cout << sum;
     char *str=new char [sum];
     int krit=0;
     for(i=0;i<28;i++)if(mass[i]%2!=0)krit++;cout << krit;
     int j=0;
     if(krit>1)cout << "!NO!";
     else{          
          for(i=0;i<28;i++)
               if(mass[i]>0){                    
                    if(mass[i]%2==1){
                         str[sum/2]=i+'A';
                         mass[i]--;
                    }
                    while(mass[i]>0){                         
                         str[j]=i+'A';
                         str[sum-j-1]=i+'A';
                         j++;
                         mass[i]-=2;
                    }
               }
          cout << "\n|YES|\n";
          for(i=0;i<sum;i++)cout << str[i];     
          cout << endl;
     }
}