Напишите в паскале программу, которая считывает целое число и определяет (выводя результат на экран), сколько цифр в этом числе равно 7

Program DZ;
var x,i,n,k,s:longint;
begin
  read (n);
  s:=1;
  x:=0
  for i:=1 to 12 do
    begin
      k:=(n div s) mod 10;
      s:=s*10;
      if k=7 then x:=x+1;
    end;
  write (x);
end.