Написать программу которая бы по введеному номеру единицы измерения (-дециметр метр километр,миллиметр)выдавала бы соответствующие значения отрезка в метрах

Var a:longint; 
b:string; 
begin 
writeln(Введите длину); 
readln(a); 
writeln(Введите единицы измерения (метры/дециметры и т.д.)); 
readln(b); 
if b=метры then writeln(a, метров) 
else if b=дециметры then writeln(a/10, метров) 
else if b=километры then writeln(a*1000, метров) 
else if b=миллиметры then writeln(a/1000, метров); 
end.