program BinToText;
// Function to convert a binary string to a decimal integer
function BinToDecimal(binary: string): Integer;
var
i, value, power: Integer;
begin
value := 0;
power := 1;
for i := Length(binary) downto 1 do
begin
if binary[i] = '1' then
value := value + power;
power := power * 2;
end;
BinToDecimal := value;
end;
// Function to convert a binary string to text
function BinToText(bin_txt: string): string;
var
text: string;
i: Integer;
binaryChunk: string;
begin
text := '';
// Loop through the binary string in chunks of 8 bits
for i := 1 to Length(bin_txt) div 8 do
begin
binaryChunk := Copy(bin_txt, (i - 1) * 8 + 1, 8); // Extract an 8-bit chunk
text := text + Chr(BinToDecimal(binaryChunk)); // Convert the binary chunk to a character
end;
BinToText := text;
end;
begin
Writeln(BinToText('0101000001110010011011110110011101110010011000010110110101101101011010010110111001100111'));
end.
(*
run:
Programming
*)
