Pascal. как переделать вот это все на while, программа,

Все, что требуется сделать, указано на рисунке.

На будущее: прикладывайте не картинку, а код программы, иначе скорее всего, Ваш вопрос останется без ответа: мало кому хочется набирать по экранной картинке всю программу.