Reprinting ... 
Check Types ... 
Error: Redeclared function a at
    funct a(

        ) real
        begin
            return 1.2;
        end
    Evaluating ...