Traducción de código binario a caracteres chinos

No son chinos, sino una cadena de inglés:

Thall y Jaina están sentados en el árbol

El programa de conversión está escrito en pascal y el programa es el siguiente:

{ $n }

Usar alto;

Definir variables

x: entero largo;

s: cadena;

y: byte;

f: texto;

b: archivo de bytes

Inicio

Asignación; (f, 'binary.in'); reset(f);

Asignación(b, 'b.out');

Iniciar en lugar de eof( f)

Leer(f,x);

str(x:0,s);

y:=trunc(convert10(s,2)

Escribir (b, y);

Fin

Cerrar (f); /p >

Fin.