https://jakerpomperada.com/while-loop-statement-in-pascal/