Nчеловек сдали экзамен. вводя в цикле их оценки, определить количество повышенных оценок (4 и 5) pascal

Var n,m,k,i:integer; 
begin
write('n = '); readln(n);
k:=0;
for i:=1 to n do
  begin
 write(i,'-я оценка = '); readln(m);
 if m>=4 then k:=k+1;
 end;
writeln('k = ',k);
end.

Пример:
n = 5
1-я оценка = 3
2-я оценка = 4
3-я оценка = 5
4-я оценка = 2
5-я оценка = 4
k = 3