字符串函数 
1）求长度length 
定义：function Length(S: String): Integer; 
例子： 
var 
S: String; 
begin 
　　Readln (S); 
　　Writeln('"', S, '"'); 
　　Writeln('length = ', Length(S)); 
end.  

2）复制子串copy
定义： function Copy(S: String; Index: Integer; Count: Integer): String; 
注意：S 是字符串类型的表达式。Index和Count是整型表达式。Copy 返回S中从Index开始，Count个字符长的一个子串。 
例子： 
var S: String; 
begin 
　　S := 'ABCDEF'; 
　　S := Copy(S, 2, 3); { 'BCD' } 
end. 

3）插入子串insert
定义：procedure Insert(Source: String; var S: String; Index: Integer); 
注意：Source 是字符串类型的表达式。 S 是任意长度字符串类型变量。Index 是整型表达式。Insert 把 Source插在S中Index处。如果结果字符串的长度大于255，那么255之后的
字符将被删除。 
例子： 
var 
S: String; 
begin 
　　S := 'Honest Lincoln'; 
　　Insert('Abe ', S, 8); { 'Honest Abe Lincoln' } 
end. 

4）删除子串delete
定义：procedure Delete(var S: String; Index: Integer; Count:Integer); 
注意：S 是字符串类型变量。 Index和Countare是整型表达式。Delete 删除S中从Index开始的Count个字符。如果Index大于S的长度，则不删除任何字符；如果Count大于S中从Index开始的实际字符数，则删除实际的字符数。 

例子： 
var 
s: string; 
begin 
　　s := 'Honest Abe Lincoln'; 
　　Delete(s,8,4); 
　　Writeln(s); { 'Honest Lincoln' } 
　　Delete(s,9,10); 
　　Writeln(s); { 'Honest L' } 
end. 

5）字符串转为数值val
定义： procedure Val(S; var V; var Code: Integer); 
在这里: 
S 是由一系列数字字符构成的字符串类型变量；。 
V 是整型或实型变量； 
Code 是Integer型变量 

注意：Val将S转为它的数值形式。 
例子： 
var s:string;I, Code: Integer; 
begin 
　　s:='1234'; 
　　val(s,i,code); 
　　writeln(i); { 1234 } 
end. 

6）数值转为字符串str
定义： procedure Str(X [: Width [: Decimals ]]; var S:string); 
注意：将数值X转成字符串形式。 
例子： 
var 
S: string[11]; 
begin 
　　Str(I, S); 
　　IntToStr := S; 
　　Writeln(IntToStr(-5322)); 
　　Readln; 
end. 

7）求子串起始位置pos 
定义：function Pos(Substr: String; S: String): Byte; 
注意：Substr和S字符串类型表达式。Pos在S中搜索Substr并返回一个integer值。这个值是Substr的第一个字符在S中的位置。如果在S中没有找到Substr，则Pos返回0。 

例子： 
var S: String; 
begin 
　　S := ' 123.5'; 
　　{ Convert spaces to zeroes } 
　　while Pos(' ', S) > 0 do 
　　S[Pos(' ', S)] := '0'; 
end. 
8）字符的大写转换。Upcase(ch)
定义：function UpCase(Ch: Char): Char; 
例子：
var
    s : string;
    i : Integer;
begin
    Write('Enter a string: ');
    Readln(s);
    for i := 1 to Length(s) do
      s[i] := UpCase(s[i]);		{等同于if s[i] in ['a'..'z'] then s[i]:=chr( ord(s[i])-32);}
    Writeln('Here it is in all uppercase: ',s);
end.