дан одномерный массив.найти сумму чисел меньше 8

const  n = 16;var  a: array[1..n] of integer;  i, s: integer;begin  Randomize;  Writeln('Элементы массива');  s := 0;  for i := 1 to n do  begin    a[i] := Random(20);    Write(a[i]:3);    if a[i]<8 then s:=s+a[i]  end;  Writeln;  Writeln('Сумма элементов, меньших 8, равна ',s)end.Тестовое решение:Элементы массива  8  5 12 10  4  7 11 18 13 17 18  2  5  1  3 16Сумма элементов, меньших 8, равна 27