GetErrMesg(E:ERROR):STRING
Str := GetErrMesg(1/0); PrintLn(Str); Division by zero -------------------------------