Итерация в Паскале

[recovernick]

Здравствуйте.
Есть условие:323.png
Прошу помощи в записи этого условия в Паскале.
Вот мой код, однако выводится неправильный результат.

program k;

function fact(n: integer): integer;
var
  i: integer;
  s: integer;
begin
  s := 1;
  for i := 1 to n do
  s := s * i;
  fact := s;
end;

var
  j: integer;
  k: integer;
  s,p,m: real;

begin
  p := 0;
  s := 0;
  m :=1;
  for j := 2 to 4 do
  for k := -1 to 1 do
  begin
  s := (power(2, k)) / ((abs(k)) + (fact(j)));
  p:=p+s;
  end;
  
end;
   writeln(p);
end.

Заранее благодарен.

[recovernick]

Помогите пожалуйста исправить код, найти ошибки.