не получаеться выполнить задачу

[Роман91]

вывести последовательность чисел 01010101...ломаю голову уже час и не как...помогите плиз

[__STDC__]

О_О это странно...

var
   i:byte;
begin
   i := 0;
   while true do begin
	write(i);
	i := abs(i-1);
   end;
   readln;
end.