Wątek: if odchudzanie=true then begin repeat kg:=kg-1 until kg=54;

Nie gniewaj się na mnie, ale w twojej diecie są tylko węglowodany???
Gdzie bialko, zdrowe tłuszcze w których rozpuszczają się witaminy. Niestety od węgli tyjemy i dlatego tak ciężko chudniemy mimo, że jemy 1000kcal