Uso de Listas Encadeadas.
Program l2call; Uses Crt, Lista2; Var s: expressao; c: char; Begin Repeat ClrScr; writeln('Escolha a operacao desejada'); writeln('a) Verifique parentizacao da expressao'); writeln('b) Verifique se palavra eh palindrome'); writeln('F) Fim'); readln(c); writeln; case c of 'a': Begin writeln('Digite a expressao p/ checagem de parentizacao'); readln(s); chk_parenteses(s); End; 'b': Begin writeln('Digite a palavra p/ checagem se palindrome'); readln(s); writeln(s); chk_palindrome(s); End; 'F': Begin writeln('Fim'); End; End; writeln('Digitepara continuar.'); readln; Until c = 'F'; End.