Дана длина в см. определите Как узнать сколько полных метров и Как узнать сколько осталось см. Пожалуйста посчитайте написать программу по паскалю

begin
  var lsm:=ReadInteger('Укажите длину в см:');
  if lsm<100 then Writeln(lsm,' см')
  else begin
    var lm:=lsm div 100;
    Write(lsm div 100,'м');
    lsm:=lsm mod 100;
    if lsm<>0 then Write(' ',lsm,'cм');
    Writeln
    end
end.


Укажите длину в см: 1623
16м 23cм

Укажите длину в см: 1200
12м

Укажите длину в см: 38
38 см