Переделать код из с++ в паскаль

#include
using namespace std;
int main()
{
string a;
cin> > a;
for(int i=0; i {

//convert each character to its decimal representation
int b=int(a[i]);
vector c;

//convert from dec to bin
while(b! =0)
{
c.push_back(b%2);
b/=2;
}

//your name characters
cout<
//completing the missing bits
for(int j=0; j< 8-c.size(); j++)
cout< < 0;

//the output
for(int j=c.size()-1; j> =0; j--)
cout< cout< < "\n";
}
cout< < "\nif you like ! please hit one like.";
return 0;
}​