почему эта программа в паскаль АВС работает, в во фри паскаль - нет?

program cc;
Var cifra,i:integer;
cf:string;
begin
readln(cifra);
cf:=inttostr(cifra);
for i:=1 to length(cf) do begin
if inttostr(i)=cf [ i ] then writeln('cifra:'+cf [ i ]+' Index:',i);
end;
end.