Даны целые числа К, N и набор из N целых чисел Если в наборе присутствует число, меньше К, то вывести true; в противном случае вывести Falk

почему у меня отмеченно как нарушение?

var k,n,a,i:integer; b:boolean;beginwrite('k = '); readln(k);write('n = '); readln(n);b:=false;writeln('Введите ',n,' чисел');for i:=1 to n do begin read(a); if a<k then b:=true; end;if b then writeln(b) else writeln('Falk');end.Пример 1:k = 7n = 5Введите 5 чисел15 9 12 8 10FalkПример 2:k = 7n = 5Введите 5 чисел3 6 1 4 5True