Задание по информатике

var k, m: byte;
dat: array [1..7] of byte;
begin
dat[1]:=12;
dat[2]:=14;
dat[3]:=13;
dat[4]:=15;
dat[5]:=15;
dat[6]:=12;
dat[7]:=16;
m:=0;
for k:=1 to 7 do
if dat[k] > 14 then m:=m+1;
writeln (m);
end.