string(1) to char?

Thomas Dunbar wrote in a message to Berend de Boer: It works on my Prospero Extended Pascal compiler. The works maybe with gpc: TD> program t(input,output); TD> var TD> ch:char; TD> s:string(10); TD> begin TD> s:='teststring'; TD> writeln(substr(s,2,1)); ch:=substr[2]; TD> writeln(ord(ch)); TD> end. Groetjes, Berend (-: CIS: 100120,3121 email: berend@beard.nest.nl