[angvelem]

Может нигде и не ошибся.

Код:

program Project;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

var
  buf        : array of Integer;
  Value      : String;
  I, Count : Integer;

begin
  WriteLn('Введите числовые значения:');
  ReadLn(Value);
  while Value <> '' do
  begin
    SetLength(buf, Length(Buf) + 1);
    Buf[Length(Buf) - 1] := StrToInt(Value);
    ReadLn(Value);
  end;

  Count := 0;
  for I := 0 to Length(Buf) - 1 do
     if (Buf[i] >= -100) and (Buf[i] <= 100) then
       inc(Count);

  if Count > 0 then
    WriteLn('Всего чисел удовлетворяющих условию ' + IntToStr(Count));

  ReadLn;
end.