Вывести длину в метрах

uses crt;
var a:integer;l:real;
begin
repeat{ цикл с постусловием, чтобы пользователь не ввел то что не надо(например 23 или -123)}
clrscr;
writeln('введите цифру');
readln(a);
until (a>0)and(a<5);
writeln('введите длину');
readln(l);
if a=1 then l:=l/10;
if a=2 then l:=l*1000;
if a=4 then l:=l/1000;
if a=5 then l:=l/100;
writeln('в метрах будет ',l:1:2);
end.

uses crt;
var w:byte;
    l:real;
begin
writeln('В каких единицах ввести длину отрезка');
writeln('1-дециметр');
writeln('2-километр');
writeln('3-метр');
writeln('4-миллиметр');
writeln('5-сантиметр');
readln(w);
write('Введите длину отрезка  L=');
readln(l);
case w of
1:write(l/10:0:2,' м');
2:write(l*1000:0:2,' м');
3:write(l:0:2,' м');
4:write(l/1000:0:2,' м');
5:write(l/100:0:2,' м');
else write('Такой единицы нет');
end;
end.