Переписать в форме с предусловием (while) следующий оператор цикла Паскаля: k:=0; for...

Question

Переписать в форме с предусловием (while) следующий оператор цикла Паскаля:
k:=0; for i:='z' downto 'a' do k:=k+1;