Программа перевода десятичного числа меньше 1 в двоичное до 21 знака — Pascal(Паскаль)

var
  d: double;
  i: byte = 1;

begin
  readln(d);
  write('0, ');
  while (i22) do
  begin
    if ((d * 2); 1) then
    begin
      write('1');
      d := (d * 2) - 1;
    end
    else
    begin
      write('0');
      d := d * 2;
    end;
    inc(i);
  end;
  readln;

end.