Циклический алгоритм Дано 5 чисел. Найти сумму положительных чисел

На делфи ?
var h: array[1..5] of integer; a,i:integer;
a:=0;
for i:=1 to 5 do
if h>0 then a=a+h;
ShowMessage('Cумма положительных чисел равняется - '+intToStr(a));