Janilabo | TIASetRange()

{==============================================================================]
  Explanation: Sets TIA values inside range (mn = minimum, mx = maximum)
[==============================================================================}
procedure TIASetRange(var TIA: TIntArray; mn, mx: Integer);
var
  h, i: Integer;
begin
  if (mn > mx) then
    Swap(mn, mx);
  h := High(TIA);
  for i := 0 to h do
  begin
    if (TIA[i] < mn) then
      TIA[i] := mn;
    if (TIA[i] > mx) then
      TIA[i] := mx;
  end;
end;

var
  TIA: TIntArray;

begin
  TIA := [-5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5];
  WriteLn('TIA BEFORE: ' + TIAToStr(TIA));
  TIASetRange(TIA, 0, 4);
  WriteLn('TIA AFTER: ' + TIAToStr(TIA));
  SetLength(TIA, 0);
end.