Vielleicht solltest du versuchen die Stringelemente einzeln zu löschen
repeat
For i:=0
to stringlaenge
do
deinstring[i]:=deinstring[i+1];
dec(stringlaenge);
until string[1] = ' ';
Bei jedem Durchlauf wird das erste Zeichen deines Strings gelöscht.
Gruß,