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

[Tonic]

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

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

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

[Tonic]

А что насчет new? Я бы непротив, да только непонятно как. В книжке написано, что массив все равно заранее надо определить.

Можно ли сделать что-то типа:

a:char;
j:=0;
repeat
 j:=j+1;
 ...
 new(i[j]));
 ReadLn(a);
 ...
until a='q'

Дело в том, что я к динамической памяти обратился сразу, но что-то несрослось. Как можно отодвигать с помощью new границу массива? Или можно создать с помощью new некую абстрацию типа, скажем, 3-х мерного массива?