Кодирование текста в двоичный код

var s:string;
    a:array[0..255] of string[8];
    i,n,x:byte;
begin
writeln('Введите текст');
readln(s);
n:=0;
for i:=1 to length(s) do
 begin
  x:=ord(s[i]);
  n:=n+1;
  a[n]:='';
  while x>0 do
   begin
    a[n]:=chr(x mod 2+48)+a[n];
    x:=x div 2;
   end;
  while length(a[n])<8 do a[n]:='0'+a[n];
 end;
for i:=1 to n do
write(a[i],' ');
end.

var s:string;
    a:array[0..255] of string[8];
    i,j,n,x:byte;
begin
writeln('Введите текст');
readln(s);
n:=0;
for i:=1 to length(s) do
 begin
  x:=ord(s[i]);
  n:=n+1;
  a[n]:='';
  while x>0 do
   begin
    a[n]:=chr(x mod 2+48)+a[n];
    x:=x div 2;
   end;
  while length(a[n])<8 do a[n]:='0'+a[n];
 end;
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Дешифрование');
s:='';
for i:=1 to n do
 begin
   n:=0;
   for j:=length(a[i]) downto 1 do
   if a[i][j]='1' then inc(n,round(power(2,8-j)));
   s:=s+chr(n);
  end;
 write(s);
end.

var
  s1,s2,w:string;
  i, k , p :integer;
begin
  s2 := '';
  readln(s1);
  while pos(' ',s1)>0 do begin
    w := copy(s1,1,pos(' ', s1)-1);
    delete(s1, 1, pos(' ', s1));
    p := round(power(2, length(w) - 1));
    k := 0;
    for i:=1 to length(w) do begin
      k := k + (ord(w[i])-48)*p;
      p := p div 2;
    end;
    s2 := s2 + chr(k);
  end;
  w := s1;
  p := round(power(2, length(w) - 1));
  k := 0;
  for i:=1 to length(w) do begin
    k := k + (ord(w[i])-48)*p;
    p := p div 2;
  end;
  s2 := s2 + chr(k);
  write(s2);
end.

uses crt;
var s,p:string;
    a:array[0..255] of string[8];
    i,j,gi,n,x:byte;
begin
writeln('Введите текст');
readln(s);
n:=0;
for i:=1 to length(s) do
 begin
  x:=ord(s[i]);
  n:=n+1;
  a[n]:='';
  while x>0 do
   begin
    a[n]:=chr(x mod 2+48)+a[n];
    x:=x div 2;
   end;
  while length(a[n])<8 do a[n]:='0'+a[n];
 end;
for i:=1 to n do
write(a[i],' ');
writeln;
        {проверка на четность}
  for j:=1 to length(a[i]) do
    if a[i][j]='1' then
    gi:=gi+1;
   if gi mod 2 = 0 then
   for i:=1 to n do
  a[i]:=a[i]+'0';
  for i:=1 to n do write(a[i]+'1',' ');
  writeln;
      {----------------------------}
      
      {обратное действие}
       begin
      for j:=1 to length(a[i][j])-1 do end;
       for i:=1 to n do
      write(a[i],' ');
      writeln;
      {------------------------------}
      
writeln('Дешифрование');
s:='';
for i:=1 to n do
 begin
   n:=0;
   for j:=length(a[i]) downto 1 do
   if a[i][j]='1' then inc(n,round(power(2,8-j)));
   s:=s+chr(n);
  end;
 write(s);
end.

uses crt;
uses Math;
var s,p:string;
    a:array[0..255] of string[16]; //цыфра 16 отвечает за максимальную длинну кода, поддержка русского идет со значения 13
    i,j,gi,n,x:byte;
begin
Repeat
writeln('Введите текст');
readln(s);
n:=0;
for i:=1 to length(s) do
 begin
  x:=ord(s[i]);
  n:=n+1;
  a[n]:='';
  while x>0 do
   begin
    a[n]:=chr(x mod 2+48)+a[n];
    x:=x div 2;
   end;
  while length(a[n])<8 do a[n]:='0'+a[n]; //цыфра 8 отвечает за минимальную длинну кода 
 end;
for i:=1 to n do
write(a[i],' ');
writeln;
      
      {------------------------------}
      
writeln('Дешифрование');
s:='';
for i:=1 to n do
 begin
   n:=0;
   for j:=length(a[i] ) downto 1 do
   if a[i][j]='1' then inc(n,round (power(2,length(a[i])-j)));
 write(chr(n));
 End;
 readln;
 until KeyPressed;
End.