всем спасибо, в итоге получился такой вот код:
Uses Crt;
Var
n:byte;
l:real;
Begin
Repeat
ClrScr;
writeln('1 — сантиметр');
writeln('2 — миллиметр');
writeln('3 — дециметр');
writeln('4 — киллометр');
write('Введите длину отрезка в метрах: ');readln(l);
write('Введите номер еденицы длины: ');readln(n);
Case n of
1:writeln('сантиметров = ',l*100:0:3);
2:writeln('миллиметров = ',l*1000:0:3);
3:writeln('дециетров = ',l*10:3);
4:writeln('киллометров = ',l/1000:0:3);
else writeln('Не правильный выбор!')
End;
write('Повторить (1=да/2=нет): ');readln(n);
Until n=2;
End.