i:=i+1;