Найти произведение тех элементов массива значения которых заключены в интервале [А, В] и кратны 3 или 5 - Pascal - Ответ 7236981

Program Laboratornaya_1_1;
var x: array [1..9999] of integer;
    i, n, a, b, s, m: integer;
    f: boolean;
begin
  randomize;
  repeat
    write('Введите количество элементов в массиве, n > 0: ');
    readln(n)
  until n > 0;
  writeln('Исходный массив:');
  for i := 1 to n do
    begin
      x[i] := 19 - random(39);
      write(x[i]:4);
    end;
  writeln;
  write('A = ');
  readln(a);
  write('B = ');
  readln(b);
  if a > b
    then begin
      m := a;
      a := b;
      b := m
    end;
  s := 1;
  f := false;
  for i := 1 to n do
    if (((x[i] mod 3) = 0) or ((x[i] mod 5) = 0)) and
       ((x[i] >= a) and (x[i] <= b))
      then begin
        s := s * x[i];
        f := true
      end;
  if f
    then writeln('Произведение элементов, кратных числам 3 и 5, в промежутке [А..В] = ', s)
    else writeln('Элементов массива, кратных числам 3 и 5, в промежутке [А..В] не найдено.');
  m := x[1];
  for i := 2 to n do if m < x[i] then m := x[i];
  writeln('Максимальный элемент массива = ', m);
  f := false;
  for i := 1 to n do if (x[i] >= -2) and (x[i] <= 2)
    then begin
      x[i] := m;
      f := true
    end;
  if f
    then begin
      writeln('Результирующий массив, элементы из отрезка [-2..2] заменены на максимум:');
      for i := 1 to n do write(x[i]:4)
    end
    else writeln('Элементы массива из отрезка [-2..2] не найдены.');
  readln
end.