Do the task in Turbo Pascal7

You need to do a task that won’t take much of your time:

An object of the type "Ring of rows" is built on the principle of an array of rows dynamically distributed in memory with the ability to occupy the required amount of memory when it is initialized. Describe the methods of PutStr and GetStr, placing a string in a ring and extracting a string from the ring, respectively.