Известны оценки по информатике 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.

//На скриншоте образец работы программы.