'for ... in' in string[NN]

by 'bytebites'.

program short;
uses sysutils;
var s:string[20];
  x: Char;
begin
  s:=inttostr(12345);
  for x in s do write(ord(x):4);
  writeln;
end.

This code produces with 3.2

49  50  51  52  53

but trunk version

5  49  50  51  52  53   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0

Related commit: 68668c64