Нужна в проверке дз, седьмое . скажите, я правильно сделала?

В вашей программе ввод последовательности заканчивается вводом числа -1, но в задании сказано, что ввод заканчивается нулём

Нужно заменить until n=-1; на until n=0;

Ещё чтобы ноль не считался как число, при вычислении среднего арифметического, нужно добавить после цикла w:=w-1;