Per il problema 2 ho risolto così(non mettevo gli apici):
codice:
Procedure CancellaTutteVocali(var p_testa:puntatore);
var
  paux: puntatore;
  warning:string;
begin
if p_testa=NIL then warning:='Lista vuota'
else
if p_testa in ['a','e','i','o','u']
      begin
      paux:=p_testa;
      p_testa:=p_testa^.next;
      dispose(paux);
      CancellaTutteVocali(p_testa);
      end
   else CancellaTutteVocali(p_testa^.next);
end;