Определить,начинается ли число на цифру 7 в паскале

var
  a: integer;
begin
  readln(a);
  repeat
    a := a div 10;
  until a < 10;
  if(a = 7) then writeln('Да, это число начинается на 7') else
    writeln('Нет, это число не начинается на 7');
end.