Даны три числа определить количество чисел больших семи

Program p1;
var a,b,c,d:integer;
begin
writeln('Введите первое число');readln(a);
writeln('Введите второе число');readln(b);
writeln('Введите третье число');readln(c);
if(a>7) then d:=d+1;
if(b>7) then d:=d+1;
if(c>7) then d:=d+1;
writeln('К-во чисел > 7: ',d);
end.