Дан массив значений расстояния L в см. преобразовать значения превышающие 100 см. в метры и округлить до целых

var masiv:array[1..10000] of longint; i:longint; begin    (n = konetz massiva)    for i:=1 to n do      if masiv[i]=>100 then         begin            masiv[i]:=round(masiv[i]/100);            write(masiv[i],' m | ');         end else         begin           write(masiv[i],' cm | ');         end; readln; end;