1 2 3 4 5 6 7 8 9 10
{%FAIL} {$mode objfpc} var A: array[1..10] of Integer; E: Integer; begin for E in A do E:=1; end.