Программа в паскале где если число больше 12 то оно возводится в квадрат, в противном случае уменьшается на 37

Program Henry;
var
a,b: integer;
begin
writeln('Введите число: ');
readln(a);
  if a >12
  then
  begin
  b:=Sqr(a);
  Writeln('Получилось чилсо: ', b);
  end
  else
  begin
  b:=a-37;
  Writeln('Получилось чилсо: ', b);
  end;
end.