Fixed max value in ada,pascal and perl and fixed newline on pascal