但是变量定义为string[10]是有效的

var
s1:string[10];
s2:string[23];
s3:string[5];
再
readln(f,s1,s2,s3)
就OK了．

可是需要，10，23，5在程序运行时变动。