Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах — Pascal(Паскаль)

Program Case6;

Var
  x: Integer;
  Leng: Real;

Begin
  WriteLn('Введите длину:');
  ReadLn(Leng);
  ReadLn(x);
  Case x Of
    1:
      WriteLn(Leng, ' дециметров = ', Leng / 10, ' метров');
    2:
      WriteLn(Leng, ' километров = ', Leng * 1000, ' метров');
    3:
      WriteLn(Leng, ' метров = ', Leng, ' метров');
    4:
      WriteLn(Leng, ' миллиметров = ', Leng / 1000, ' метров');
    5:
      WriteLn(Leng, ' сантиметров = ', Leng / 100, ' метров');
  End;

End.