Помогите написать программу в паскале

Program Privet;
var i,x,n,s,y:real;
begin
n:=1;
while i:=0 do begin
writeln('Введите число');
readln(x);
s:=x+s; y:=s/n; n:=n+1;
writeln('Среднее число = ',y);
end; end.