Recorrer un String

[alferesvi]

buenas, soy nuevo aqui y haber q tal esta solucion

Código Delphi [-]
 
i:=0;
longitud:=lenght(variablestring);
repeat
   i:=i+1;
   //con esto guardas todas letras hasta que encuentra el signo '-'
   if variablestring[i]<>'-' then nuevastring[i]:=nuevastring[i]+variablestring[i]
   else salida:=false;
until salida;

si hay algun error de codigo perdoneme