test6.p:10: error dup-declared variable test6.p:12: error dup-declared variable test6.p:18: error undeclared procedure test6.p:20: error mismatched type test6.p:22: error invalid constant