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