Zeichenkette per zufall ändern

[horst]

hallo...
ich will von einer zeichenfolge die nur aus einsen und zweien besteht z.b. '111,111,111,111,111,111' (beispiel 6 dreier gruppen können ach 4 0der 9 dreiergruppen sein) irgend eine zweite stelle einer dreiergruppe von einer 1 in eine 2 wandeln oder umgekehrt wenn schon eine 2 drin steht, das ganze natürlich nach zufallsprinzip. wie mache ich das am dümmsten.
zeichenkette könnte auch so aussehen '121,211,111,112,211,121'
es sind immer zwischen 4 und 9 dreiergruppen pro zeichenkette
weis jemand rat? bin für jede hilfe dankbar

das habe ich bisher:

Delphi-Quellcode:

     while zeile = nfolge[jetztzeil] do 
      begin 
       randomize; 
       tonfehler := Random((anzton*3)+(anzton-1))+1; 
       if copy(zeile,tonfehler,1) = '1' then 
        begin 
         zeile := copy(zeile,1,tonfehler-1)+'2'+copy(Zeile,tonfehler+1,length(zeile)); 
         ok := True; 
        end 
       else 
        if copy(zeile,tonfehler,1) = '2' then 
         begin 
          zeile := copy(zeile,1,tonfehler-1)+'1'+copy(Zeile,tonfehler+1,length(zeile)); 
          ok := True; 
         end; 
      end;

diese routine eine erste oder eine zweite oder eine dritte stelle ich brauche aber nur eine zweite stelle
es darf aber nur die 2te oder 6te oder 10te oder 14te oder 18te oder 22te stelle verändert werden bei eine zeichenkette mit 6 dreierblöcken