Формула некорректна, поскольку при i=1 и k=1 знаменатель дроби обращается в ноль. Программа будет всегда возвращать "бесконечность".

var
  i,k,m,n,ik:integer;
  si,sk,facti,factk:double;
begin
  Write('Введите через пробел значения m и n: ');
  Read(m,n);
  sk:=0; factk:=1;
  for k:=1 to m do
  begin
    si:=0; facti:=1; ik:=1; factk:=factk*k;
    for i:=1 to n do
    begin
      ik:=-ik; facti:=facti*i;
      si:=si+factk/(ik+facti)
    end;
    sk:=sk+si
  end;
  Writeln('Результат: ',sk)
end.