даны целые числа (положительные) n и k. найти сумму: 1 в степени k + 2 в степени k + ... + n в степени k

уже не понимаю как исправить, ответ тут - степень последнего (н) числа....а складывать возведенные числа до н не хочет((

var   
n,k,s,p,a,b:integer; 
begin  
write('a=');    
read(a);     
write('k=');    
readln(k);  
begin  
   s:=0;   
   for n:=1 to a do   
      begin    
         p:=1;       
         for b:=1 to k do      
         p:=p*n;           
      end;     
   s:=s+p;     
end;      
write(' ответ: ',s);     
readln;  
end.     

s:=s+p;
внутрь цикла запихни...