Как создать резиновый массив? Опции

[Tonic]

Синтаксиса не знаю, поэтому объясняю на пальцах:

массив[заранее_не_знаю_сколько_элементов]
i:=0
начало_цикла
 i:=i+1
 элемент_массива[i] = ввод_с_клавы(неск._букв)
 если элемент_массива[i] = 'особый_символ' то
   выйти из цикла
конец_цикла

Вопрос в том, как бы мне менять границы массива по ходу исполнения программы? Есть ли какие варианты? Может быть, использовать не массивы, а ещё что-то?

[Ант]

Я это делал так:
прописываешь процедуру, а в ее var-е создаешь массив от 1 до какого-то n, которое вводишь как параметр процедуры.
Обычно работало, но только все равно остаеться ограничение памяти.
8)