Erstellung einer Funktion

[DieDolly]

Delphi-Quellcode:

while endNotFound do
 begin
  repeat
   case s[run] of
    '0' .. '9': delete(s,run,1);
   end;
   
   dec(run);
  until run = 0 ;

  endNotFound := TRUE;
 end;

Fällt dir denn da nichts auf, warum es nicht funktioniert?