Cклавиатуры вводятся длины 2-х отрезков. одна длина отрезка задана в миллилитрах, другая в дюймах. какой отрезок длиннее&

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadReal('Введите длину в миллиметрах:');
  var b:=ReadReal('Введите длину в дюймах:');
  var s:=Sign(a-25.4*b);
  case s of
  -1:Writeln('Второй отрезок длиннее');
  0:Writeln('Отрезки равны');
  1:Writeln('Первый отрезок длиннее')
  end
end.