All list problem with Pascal