В массиве А, состоящем из 10 элементов, вычислить сумму положительных элементов написать программу в паскале

Вот пример:

program Desicion;
const
a: array [1..10] of integer = (-4,5,6,8,0,-23,-7,8,11,9);
var
i, s: integer;
begin
s := 0;
for i := 1 to 10 do
if a[i] > 0 then
s := s + a[i];
writeln('Сумма положительных элементов: ', s);
readln();
end.