Задачка на рекурсию!, Что я не правильно делаю? Опции

[Akella]

Условие: Множество S, состоящее из n элементов, разбивается на k непустых подмножеств. Число таких подмножеств по рекурсивной формуле


Составить рекурсивный алгоритм и написать программу, вычисляющую Pk(n).
Вот я тут написал чуток, но что-то она не работает=(( не понимаю... Помогите плиз!

program _6_8;    
var    
  S,k,n : integer;    
function P(k,n:integer):integer;    
   var      i:integer;    
begin     s:=0;      
  for i:=1 to k do begin        
   if (i=n) and (i=1) then P:=1 else         
     if i>n then P:=0 else      
  end;       
   S:=S+P(i,n-i)    
end;  
begin    
  writeln('vvedite k,n');     
  read(k,n);     
  P(k,n);    
  write(S);  
end.

Добавлено через 2 мин.
кстати для проверки можно взять k=2 и n=5, должно получиться 2! а мну ничего не получается, кстати когда в универе делал 0 получался, щас ваще ошибку 202 выдает... по памяти писал... может что-то упустил...