Составьте программу. Даны 6 чисел, найти среднее арифметическое. Помогите пожалуй?

Var a,sum,sr: real; i: integer; begin sum:=0; for i:=1 to 6 do begin writeln ('введи число'); read (a);    sum:=sum+a; end; sr:=sum/6;  writeln ('среднее арифметическое равно',sr); end.