Вычисление математического ожидания оформить в виде процедуры.(PASCAL)

var   m:real;  n,i:integer; procedure MathW(var i:integer;var m:real); var  x,p:real; begin; write('Введите значение ',i,':'); readln(x); write('Введите вероятность ',i,':'); readln(p); m:=m+x*p; end; begin; write('Введите количество испытаний:'); readln(n); for i:=1 to n do MathW(i,m); write('Result:',m); end.