Перевести длину данного отрезка в метрическую систему, то есть в метры, сантиметры и миллиметры — Pascal(Паскаль)

program z_Inch_Meter;
uses crt;
var Inch,Meter,Centimetr,Millimeter:real;
begin
 clrscr;
 writeln('Введите длину в дюймах');
 readln(Inch);
 Meter : = trunc(Inch * 2.54 / 100);
 Centimetr : = trunc(Inch * 2.54 - Meter * 100);
 Millimeter : = (Inch * 2.54 - Meter * 100 - Centimetr) * 10;
 write(Meter:0:0,' м ',Centimetr:0:0,' см ',Millimeter:0:1,' мм');
 readln;
end.