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

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