Задание по Паскалю

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

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.