Delphi, списки

[programming]

Еще раз доброго времени суток (но я надеюсь на ночь)!
У этот раз передо мной стоит задача с указателями. Итак, надо: ввести последовательность символов, вывести их в обратном порядке и после каждого элемента A добавить элемент #. Честно, тему динамической памяти знаю хуже, чем другие, так что мучаюсь над ней больше :/
Итак, первый мой вопрос: тут надо использовать стек, так? В него ведь записываются элементы сразу в обратном порядке.
Далее. Я придумала такую вот структуру программы (пока в сыром виде, извините за оформление!):

{описание элемента стека}
{описание функции 1, проверяющей, является ли элемент стека A}
{описание процедуры 2, добавляющей #}
{всякие прочие переменные}
//тело проги - начало

{заполняем стек с клавиатуры}
{пока указатель на следующее не станет пустым}
           {если 1 - true, то 2}
           {вывод элемента}
           {перераспределение указателей} 

//тело проги - конец

Я хотя бы думаю в верном направлении?

UPD. Ну, я все же решила действовать в заданном направлении.
Итак, у меня получилось это (сыро, опять извиняюсь за оформление):

uses
  SysUtils;
  Type kel= ^el;
      el = record
      data: char;
      prev: kel;
      next: kel;
      end;
  var sim: char;
      q, first: kel;
  function aornot(var data:char): boolean;   //функция на стадии младенчества
      aornot:=false;
      while first <> 0 do
      c:=ord(q^);
      if c = 65 then aornot:=true;
  end;
  procedure addocto(var data:char)           //процедура на стадии зародыша
      ЭЛЕМЕНТ = ЭЛЕМЕНТ + #

  begin
  Writeln('Add symbols for stack; for exit enter ctrl+z');
  readln(sim);
  new(first);
  first ^.data:=sim;
  first ^.prev:= nil;
  while not EOF do
    begin
      readln(sim);
      new(q);
      q^.data:=sim;
      q^.prev:=first;
      first:=q;
    end;
  while first <> 0 do
      begin
         if (aornot(q^)) then addocto(q^);

      end;
  end.

Собственно, если насчет тела проги я еще уверена, то в процедуре с функцией я плаваю. Например, компилятору не нравится, как я функцию объявляю false в начале. Интересно, чем?