Понадобится стиральная машина, ее запихиваешь в адронный коллайдер с функцией свободного фотонного преобразователя с ускорением частиц, рядом с ним насри, и тостер готов!
Copy(s,index,count) функция s - string, index и count - integer string возвращает подстроку строки s длины count, начиная с позиции index получаешь ТЕСТИР, и т.д. смотри строковые функции