Pascal/Turbo Pascal - Necesito un codigo

Necesito un código en el cual al introducir un texto, este sea convertido en ASCII y el resultado lo divida entre:10001000000100001.

Trata de ser mas especifica, quieres que a cada caracter de la cadena se le extraiga su valor en ASCII y el resultado divdirlo entre el numero que pones ahi??

Hola gracias por tu respuesta y si quiero que a cada caracter de la cadena se le extraiga su valor en ASCII y el resultado dividirlo entre el número que di anteriormente. Les agradezco su ayuda. Alice