Последовательность из нулей и единиц, в которой никакой отрезок не повторяется три раза подряд

var
 d: array of char;
 razmer, uvelichem: integer;
 
begin
  razmer:=0;
  uvelichem:=0;
    while true do
  begin
    if uvelichem=razmer then
    begin
      if razmer=0 then
        razmer:=1
      else
        razmer:=razmer*2;
      SetLength(d,50);
    end;
    case uvelichem mod 3 of
      0: d[uvelichem]:='0';
      1: d[uvelichem]:= d[uvelichem div 3];
      2: d[uvelichem]:='1';
    end;
    write(d[uvelichem]);
    while uvelichem<>50 do inc(uvelichem);
      end;
end.

function inv(s : string) :string;
var i : integer;
begin
  for i := 1 to Length(s) do
    if s[i] = '1' then s[i] := '0' else s[i] := '1';
  inv := s;
end;
 
var 
  seq : string := '1';
 
begin
  while Length(seq) < 50 do seq := seq +inv(seq);
  writeln(seq); // можешь напечатать только первые 50 символов
end.