in pascal is das noch so schön einfach. einfach ein repeat until keypressed dahinter und das wars