Mal wieder Delphi nach PHP Probleme

[DieDolly]

Ich habe diesen Codeschnipsel. Am Ende sollte s1 in etwa 50 bis 70 Zeichen lang sein.
Bei meinem PHP-Versuch ist der String am Ende aber so lang, dass selbst Firefox Probleme mit der Anzeige bekommt. Also der verlängert sich stetig exponentiell wie es scheint.

Weiß wer Abhilfe?

Delphi

Delphi-Quellcode:

s1 := aAlphabet;
 s2 := '';
 for i := 1 to Length(ss) do
  begin
   x := Pos(ss[i], s1);
   if x > 0 then
    s1 := Copy(s1, 1, x - 1) + Copy(s1, x + 1, Length(s1));
  end;

PHP

Code:

  $s1 = $alphabet;
  $s2 = '';
  for ($i = 0; $i < strlen($ss); $i++) {
    $x = strpos($s1, $ss[$i]);
    if ($x > -1) {                                                              // bis hierhin ist alles korrekt
      // s1 = Copy(s1, 1, x - 1) + Copy(s1, x + 1, Length(s1));
      $s1 = substr($s1, 0, ($x1 - 1)) . substr($s1, ($x + 1), strlen($s1) - 1); // DIESE Zeile ist falsch. Deswegen ist $s1 dann fortlaufend auch falsch.
    }
  }

$s1 beinhaltet anfangs ein Alphabet sowie alle Zahlen 0-9.
$ss ist ein zufälliger String etwa 10 bis 16 Zeichen lang.