Как исправить программу? паскаль АВС

задание:

найти среднее арифметическое введенных чисел (числа вводятся до тех пор, пока не будет 0)

var N,a,S,i:integer;

SR:real;

begin

writeln ('vvod a=');

readln (a);

S:=0;

while a<>0 do begin

for i:=1 to N do

begin

read (a);

S:=S+a;

end;

Sr:=S/N;

Writeln('Sr=',Sr)

end

end.