Задача о стеках Опции

[Murderer]

И все таки... что мне нужно исправить, чтобы я сам задавал нужное мне количество элементов в стеке, а не сама программа?

[volvo]

Предыдущее сообщение ты проигнорировал?

Хорошо, задам вопрос по другому: исправить ГДЕ? Полную программу приаттачь, а то непонятно, что у тебя собственно не работает. Если делал все, что тебе написали, должно работать...

[Murderer]

Извини Вольво! Просто очень надо, а я не силен в таких задачах... Вот программа, которая при запуске просит, чтобы я ввел 5 элементов в каждом стеке... я могу сделать, чтобы 6 вводил, 7 и даже 8, но суть в том, чтобы я нужное мне число элементов вводил в программе, а не в КОДе.

[Murderer]

Там что исправить надо?

[Lapp]

чтобы я нужное мне число элементов вводил в программе, а не в КОДе.

Замени строчку:

  k := random(1) + 5;

на такие две:

Write('Введите количество элементов: ');
ReadLn(k);

Кстати, random(1) всегда железно равно нулю. Если хочешь получать случайные числа в диапазоне от 0 до n, используй random(n+1)