Условие val>7 выполняется и тогда, когда val<=7 минимум один раз? - Free Pascal

Формулировка задачи:

Доброго времени суток. Написал программу по вот этой вот теме, на простых циклах и ветвлениях. Но что-то с ней не так- в комментариях к коду это написано. Скажите пожалуйста, где ошибка и что не так с кодом. Заранее спасибо.

                    Листинг программы
                
 
                            
                        
program birthdays;
var
  birthDay, weekDayOfBday:array[1..100] of integer ;
  i:integer;
 
begin
    randomize;
    for i:=1 to 100 do
    begin
      birthDay[i]:=random(30)+1;
      write(birthDay[i]);
      write(', ');
    end;
    weekDayOfBday:=birthDay;
    writeln('дни недели дня рождения');
    for i:=1 to 100 do
    begin
      // в следующих строках- если день недели больше семи, отнимать от
      // по семи до тех пор, пока он не будет меньше семи- это и будет
      // день недели
      // но следующая строка выполняется, если значение даже меньше или равно семи
      // минимум один раз
      if (weekDayOfBday[i]>7)then;
      // результат выводится на консоль:
      begin
      write(weekDayOfBday[i]); Write('>7, ');
        repeat
          weekDayOfBday[i]:=weekDayOfBday[i]-7;
                until (weekDayOfBday[i]<8);
            end;
      write(weekDayOfBday[i]); write(', ');
        end;
        writeln(); writeln('совпали дни рождения:');
    for i:=1 to 99 do
    begin
      if (birthDay[i]=birthDay[i+1]) then
      writeln(birthDay[i]);
        end;
 
    writeln(); writeln('совпали дни недели:');
    for i:=1 to 99 do
    begin
      if ( weekDayOfBday[i]=weekDayOfBday[i+1]) then
      writeln(weekDayOfBday[i]);
        end;
    readln();
end.

Решение задачи: «Условие val>7 выполняется и тогда, когда val<=7 минимум один раз?»

Листинг программы

void Example()
{
    {
        {
            {
                //ЙО-ХО-ХО!
            }
        }
    }
    for (int i = 0; i < 10; i++);
}

Объяснение кода листинга программы

Объяснение:

В данном коде используется язык программирования Free Pascal.
В условии задачи сказано, что нужно проверить, выполняется ли условие val>7 хотя бы один раз, когда val меньше или равно 7.
В коде есть несколько вложенных блоков с фигурными скобками, которые используются для группировки кода.
Внутренний цикл for выполняется 10 раз, но его результат нигде не используется и может быть считаться лишним.
В самом внутреннем блоке фигурных скобок есть комментарий ЙО-ХО-ХО!, который, вероятно, оставлен разработчиком для того, чтобы пометить участок кода, который выполняется только один раз.
Таким образом, код проверяет условие val>7 и если оно выполняется, то выполняется некоторый код внутри блока фигурных скобок.
Если условие val>7 не выполняется, то код внутри блока фигурных скобок не выполняется.
В результате выполнения кода будет выведено сообщение ЙО-ХО-ХО!, если условие val>7 выполнится хотя бы один раз, и не будет выведено никакого сообщения, если условие не выполнится ни разу.