с клавиатуры ввели 10 чисел положительных и отрицательных.необходимо вывести на экран сумму всех положительных чисел

Program Summa;
Uses CRT;
var a,sum:integer;
Begin
Write('Введите 10 положительных и 10 отрицательных чисел');
Read(a);
sum:=0;
if a > 0 then sum:=sum+a;
writeln('sum=',a)

end.