[lmikle]

собственно, вопрос в том, что считать "числом сотен". Если, условно говоря, есть текоторая сумма (пусть 12345), и надо посчитать кол-во сотенных бумажек, то ответ будет 123. Если надо получить значение для разряда сотен (например при генерации суммы прописью), то ответ будет 3.

Соответсвенно:

Код:

// Кол-во "бумажек"
function NumOfHundred(n : Integer) : Integer;
begin
  Result := n div 100;
end;

// Разряд
function PosHundred(n : Integer) : Integer;
begin
  Result := (n div 100) mod 10;
end;