Mal wieder Delphi nach PHP Probleme

[timog]

Code:

<?php

  $alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
  $ss = "DFECDFR12345";

  $s1 = $alphabet;
  
  echo $ss."<br>\n";
  echo $s1."<br>\n";

  for ($i = 0; $i < strlen($ss); $i++) {
    $x = strpos($s1, $ss[$i]);
    echo $ss[$i] . " an " . $x . ". Stelle <br>\n";
    if ($x > -1) {                                 
      // s1 = Copy(s1, 1, x - 1) + Copy(s1, x + 1, Length(s1));
      $s1 = substr($s1, 0, ($x)) . substr($s1, ($x + 1), strlen($s1)); // Bedeutung von start und length bei null indizierten Strings bedenken; negativer start parameter nimmt string von rechts 
    }
    echo "$i) ". $s1 . "<br>\n";
  }
  
  echo $s1." (PHP)<br>ABGHIJKLMNOPQSTUVWXYZ06789 (Pascal)\n";
  
?>