Привет. Напишите, пожалуйста,программу, которая будет вводить целые числа до тех пор,пока не будет введён нуль.Подсчитать количество положительных и отрицательных чисел.

Почему макс и I равны нули

не работает

program z;var a,i:integer; max:real;beginmax:=0;i:=0;repeat writeln('Введите число'); read(a);max:=max+a;i:=i+1;until a=0;writeln('Сумма =',max);writeln('Средние значение =',max/i);end.