Для того чтобы записать цикл while с помощью цикла for, нужно учитывать то, что оба цикла могут быть эквивалентны друг другу, при определенном подходе. Для создания аналогичного цикла while с использованием цикла for, заголовок цикла for должен быть следующим:
for a := 0 to 4 do begin // Внутри блока цикла for end;
Таким образом, цикл for с таким заголовком будет иметь аналогичное поведение циклу while из вашего примера. Помните, что внутри блока цикла for нужно обеспечить логику, аналогичную той, что выполняется в вашем цикле while.
