Na začatku je i1 := 0;TS.Count-1 je třeba 300while (i1=i) dopřikaz while se bude provadět tak dlouho, až i1 bude 300.Ne?