Известны оценки по информатике 15 учеников класса. Выяснить, есть ли среди них двойки. ПОЖАЛУЙСТА ПОМОГИТЕ!!! На языке паскаль

Var x,i,s: integer; Begin s:=0; for i:= 1 to 15 do begin; Write('Введите оценку ученика №',i,' '); readln(x); if (x=2) then s:=s+1; end; if (s=0) then writeln('Двоек нет!')  else writeln('Двойки есть! Всего двоек: ',s); readln(x); end. //На скриншоте образец работы программы.