Tsingle: single;

Tarray: the list of array [1..10];

begin

tsingle:= 1.5；

//For tsingle:= 1 to 10.

repeat

tarray[trunc(tsingle)]:= tsingle * 2； //This sentence is wrong.

tsingle:= tsingle+ 1；

Until tsingle & gt9;

label 1。 caption:= float tostr(tarray[8])；

Is this what you want?