while i do , a potem end...
pętla od :"while" +warunek, wykonaj: "dorota olaf+nr podprogramu"
koniec podprogramu end +nr podprogramu

w twoim przypadku masz end 1 to i wstawiasz do1 wszystko pomiędzy pętlą a końcem jest podprogramem. masz błąd bo wpisałeś d zero jeden, a powinno być d o jeden...
PS prugramista u ciebie to albo ćwok i ci nic nie powie, albo cienias i też ci nic nie powie bo nie wie...