Дан массив из 15 целых чисел заполненный случайными числами из интервала [0; 20]. выведите в строку эти элементы. найдите сумму элементов массива, значения которых не превышает 10

Var
   i,s:integer;
   a:array[1..15] of integer;
begin
randomize;
for i:=1 to 15 do
   begin  a[i]:=random(21);
   write(a[i],' ');
   if a[i]<=10 then s:=s+a[i]
   end;
writeln('Сумма ',s)
end.