Описание больших чисел через дэк

[whatever]

Доброго времени суток. Задача в следующем, нужна процедура заполнения дэка длинным числом из файла, на выходе - две головы. И не помешала бы процедура(можно функцию) вывода этого дэка на экран. Я сколько смотрел в инете, большенство нормальных людей реализуют большие числа через массивы, но у меня вариантов - либо дэк, либо стэк, либо очередь. Пробовал самостоятельно сделать через стэк, число выводится на экран задом на перед (причина мне ясна, а вот как с этим бороться - увы, не понимаю. Препод говорил, что нажно осуществить рекурсивный вход в стэк, может кто знает как?)
В общем надеюсь на шаблон, или хотябы на ссылку. Заранее спачибо.

[evg_m]

примерно вот так

procedure writeNumber(n: integer)://вывод N значного числа
var
   s: char;
begin
   if n<=0 then exit //все знаки обработаны (конец рекурсии)
   else begin
     s:=stack.pop;//забираем из стека но не выводим
     writeNum(n-1); //обрабатываем оставшиеся
     write(s); //а теперь выводим     
   end;
end;

[whatever]

evg_m, и что же мы понимаем под n? Если бы к элементу стека можно было обращаться по индексу, как, например, к элементу массива, то я бы тут не спрашивал.

[evg_m]

s:=stack.pop;//забираем из стека но не выводим

а N это информация о том сколько знаков нам над брать из стека можно не использовать но тогда в стекке должен быть ограничитель(индикатор) что мы взяли все цифры числа

смысл данной процедуры

s1:=stack.pop;
s2:=stack.pop;
...
sN:=stack.pop; //сначала считываем весь наш стек
write(sn);
...
write(s2);
write(s1); //потом его выводим в обратном порядке

только вместо s1,s2,...sn использованы локальные значения переменной s при рекурсивном вызова процедуры

writenum(n); //s=sn
....
writenum(2); //s=s2
writenum(1); //s=s1