Определить наименьшее произведение серии элементов последовательности, кратных 7

var
  mas, mas2 : array [1..100] of integer;
  N, i, count : byte;
  res, M, min : integer;
 
  
begin
  count:= 0;
  Write('N = ');
  Readln(N);
 
  Write('Последовательность: ');
 
// Числа, кратные 7, заносим в массив
  for i:= 1 to N do
    begin
      Read(M);
      if M <> 0 then         // исключаем 0 из последовательности
      begin
      res:= M mod 7;
      if res = 0 then
        begin
         count:= count + 1;  //счетчик чисел, кратных 7
         mas[count]:= M;     //заносим в массив mas
        end;
       end;
    end;
 
// Работаем с массивом
   if count > 1 then        //если чисел, кратных 7, больше 1, то выполняем блок операторов до "Нет вариантов"
   begin
    for i:= 1 to count-1 do
// заносим в массив mas2 произведение 1-го элемента mas на следующие за ним по порядку 
        mas2[i]:= mas[1] * mas[i+1];  
// находим минимальный элемент mas2 (произведение)
    min:= mas2[1];
    for i:= 2 to count-1 do
        if (mas2[i] <> 0) and (mas2[i] < min) then
           min:= mas2[i];
    Writeln(min);
   end
       else Writeln('Нет вариантов');
end.