May be something like this?

FOR T1= 10 to 23
messline[T1]=phone1[T1]
write T1,phone1[10-T1]
NEXT

Ioannis