Вычисление математического ожидания оформить в виде процедуры.(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 doMathW(i,m);write('Result:',m);end.