设有如下定义:s:string;
那么字符串长度可以表示为
length(s) (byte类型)
或者
ord(s[0])
这个是一样的.

求字符串长度函数：length(st)
　　作用：求字符串st的长度。
　　示例：length(‘pascal’)的值是6，length(‘23+318=’)的值是7。
　　
　　查找子串函数：pos(stl,st)
　　作用：求子串stl在字符串st中的起始位置。
　　示例：pos(‘in’,’windows’) 的值是2,pos(‘+’,’13+418=’) 的值是3。
　　
　　求子串函数：copy(st,p,n)
　　作用：提取字符串st中从第p个起的连续n个字符。
　　示例：copy(‘windows’,4,3) 的值是“dow”， copy(‘123+78=’,4,2) 的值是“78” 。
　　
　　将字符串转换为数值：val(st,a,cw)
　　作用：将st中的数字字符串转换为数值，存入变量a中，cw存放返回错误代码。
　　示例：val(‘359’,a,c1)执行后使变量a得到数值359（可参加四则运算）
　　VAL(‘124.32’,b,c2)执行后将使变量b得到数值124. ......

同楼上的，
 求字符串的长度的函数是length;
var
 t:string; a:integer;
begin
 read(t);
 a:=length(t);
 writeln(a);
end.
 直接输字符如 dhkhjjk 输出结果为7

length(x)
或者a[0]也行，应为a[1]以后存放的是数据，A[0]存放的是长度！