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

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.