Дан массив целых чисел, состоящий из 15 элементов. Найти сумму положительных элементов, значения которых меньше 10 — Pascal(Паскаль)

program task;

{$APPTYPE CONSOLE}

var
  x: array [1 .. 15] of Integer; // ваш массив
  i: Integer; // счётчик
  s: Integer; // требуемая сумма

begin
  s := 0; // сумма обнуляется
  for i := 1 to 15 do
  begin // 15 элементов
    Write('x[', i, '] = '); // запрос на ввод данных
    Readln(x[i]); // читаем
    // если положительное и меньше десяти, то прибавляем к S
    if (x[i] > 0) and (x[i] < 10) then
      s := s + x[i];
  end;
  Writeln(s); // вывод суммы
  Readln;

end.