Пожалуйста!! Паскаль. Дан целочисленный массив из 60 элементов. Элементы массива могут принимать целые значения от 0

var a: array[1..60] of integer; i: integer; f: boolean;begin f:= false; for i:=1 to 60 do begin if a[i] > 7 then begin f:= true; break; end; end; if f then writeln(\'Номер \', i) else writeln(\'Нет элементов больше, чем 7\');end. Переменная \"f\" играет роль флажка. Она равна false (ложь), пока элемент больше семи не найден и становится равной true (истина), когда такой элемент обнаружен. Изначально переменной \"f\" задается значение \"ложь\". После этого, в цикле перебираются по очереди все элементы массива \"а[]\". Если находится элемент, больший, чем семь, переменной \"f\" задается значение \"истина\" и цикл прекращается, при этом в переменной \"i\" остается номер искомого элемента. После завершения цикла, в зависимости от значения переменной \"f\", печатается либо номер найденного элемента, либо сообщение, что таких элементов нет.