Задача на циклы с предусловием в паскале Дано 2 произвольных чилсла X.Y найти среднее арифметическое факториалов для этих чисел Помогите пожалуйста

program test;
var x: integer;
var y: integer;
var factSred : real;

Function fact(arg:integer) : integer;
var i: integer;
var r: integer;
Begin
i:=1;
r:=1;
while ibegin
r := r*i;
i := i + 1;
end;
fact := r;
End;

begin

readln(x);
readln(y);
factSred:=(fact(x)+fact(y))/2;
writeln(factSred:0:2);

end.