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

[Tonic]

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

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

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

[SKVOZNJAK]

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

Какая разница NEW, или что-то ещё? И разве без списков, коллекций, объектов нельзя написать прогу небольшого размера ;) Главное, чтобы доступ к памяти был, а уж для облекчения доступа к нему завсегда функцию написать можно. Самый прикольный вариант, когда для инициализации массива, изменения размеров, чтения, записи используется одна и та же функция

Код

FUNCTION FDSGDS(FDS,POKE,PEEK:BYTE; ADREES:LONGINT):BYTE;
....................
BEGIN
CASE FDS OF
1: ................
2: ..................
3:..........................
4:................................
.....................
END;

Вместо не нужных параметров пишутся фиктивные - нули, или любой другой мусор. На какие параметры реагировать и какую продукцию выдавать ф-ция решает исходя из ключа FDS - инициализирует или закрывает новые сегменты памяти, читает, записывает или форматирует диск ;) Конечно, преподы за такой подход голову оторвут, или что-нибудь ещё <_< Но штука прикольная и полиморфная.

ЗЫ: Без ГОТО такая конструкция выглядит как соль без сахара.