一个简单的问题想找一个最简单的程序答案 (50分)

一个简单的问题想找一个最简单的程序答案
example:
var number,firstword:string;
有个字符串变量number:='#5687';也可以是'$7800','@79303"或'%77887'等等。
现在要做到的事是:将此字符串number的第一个字母赋值给firstword
也就是说firstword:='#','@'或'%'等。
然后再删除字符串number的第一个字符，将字符串number变为'5687','7800'或'77887'等等。

希望大家能够提供比较简单的程序给我，小女子先谢谢了！[]

firstword:=copy(Number,1,1);
Number:=copy(Number,2,Length(Number)-1);
或 Delete(Number,1,1);

接受答案了.