Эйлеров путь, нахождение пути Опции

[setare]

Здравствуйте! У меня возникла проблемма в задаче нахождения Эйлерова пути между словами. Задача состоит в следующем: есть N слов из букв латинского альфавита. Сложить из них цепочку и найти эйлеров путь, при чем конец последующего слова должен совпадать с началом предыдущего.
Кое-что я написала, но не пойму почему мне постоянно компилятор дает ошибку-переполнение стэка, когда у меня нет рекурсии. Что делать? Спасибо! Файл я вложу, потому что он состоит из 200 строчек, и я не думаю, что можно просто его написать на экране.

[volvo]

не пойму почему мне постоянно компилятор дает ошибку-переполнение стэка, когда у меня нет рекурсии.

У тебя в процедуре findeiler (при входе в нее происходит Stack Overflow, правда?) описаны ЛОКАЛЬНЫЕ переменные (они хранятся в стеке) общим размером:

var
  ms:tmv; { 104 байта }
  r:tmassiv; { 18928 байт }
  mp:tme; { 18 байт }
  i,j,v,vs,v2:integer; { 10 байт }
  ve,nv2:integer; { 4 байта }

итого - 19064 байта... Размер стека по умолчанию = 16К, вот и переполнение...

Пути решения проблемы:
1) увеличить размер стека (директива {$M StackSize HeapMin HeapMax}) по крайней мере до 32К
2) перенести описание переменной R в глрбальную область видимости, тогда она будет располагаться в DataSegment-е и место в стеке занимать не будет (но может появиться новая проблема - общий размер всех глобальных переменных может превысить 64К, а это уже хуже...)
3) использовать динамическую память (она же - "куча")...