дан массив значений расстояния L  в сантиметрах . Преобразовать значения ,

Uses crt;
const
     N=30;
var L:array [1..N] of integer;
     i:integer;
begin
    for i:=1 to N do
      begin
        readln(L[i]);
        if L[i]gt;=100 then L[i]:=trunc(L[i]);
      end;
    for i:=1 to N do write(L[i]:3);
end.
но в выводе он вровень с метрами будет выводить и не преобразованные см