Pascal subslut 8