Напишите пожалуйста кометарии к программе

[Анна997]

Посчитайте колличество различных представлений заданного натурального числа N в виде суммы не менее
двух попарно различных положительных слагаемых. Представления, отличающиеся порядком слагаемых,
различными не считаются*)
type arr=array[1..40]of integer;

function Recursion(i,pos,sum,n:integer;a:arr ):integer;
var j,k:integer;
begin
for j:=i to n-1 do
begin
a[pos]:=j;
if sum+j=n then
begin
for k:=1 to pos do
if k>1 then write('+',a[k])
else write(a[k]);
writeln
end
else
if sum+j<n then Recursion(j,pos+1,sum+j,n,a);
end;
end;

var n:integer;
a:arr;
begin
write('n:');
readln(n);
Recursion(1,1,0,n,a);

end.