Adding pascal code cleaning