Задан массив X[1..N]. Какое условие надобно поставить заместо многоточия, чтоб отыскать

Задан массив X[1..N]. Какое условие надо поставить заместо многоточия, чтобы найти сумму положительных частей массива в переменной S? Вводите ответ без пробелов.
S := 0;
for k := 1 to N do begin
if . . . then S := S + X[k];
end;