В одномерном числовом массиве посчитайте количество элементов, по модулю меньших заданного числа Т

Const N=8;
Var
  A,B:Array[1..N] of Integer;
.
.
.
For I:=1 to N do
     begin
        A[I]:=I; {Массив с возрастанием от 1 до N}
        B[I]:=N-I+1; {Массив с убыванием от N до 1}
     end;

Const N=10;
Var
   Detali:Array[1..N] of Real;
   A,D:Real;
   I,Brak:Integer;
begin
   For I:=1 to N do Readln(Detali[I]);
   Writeln('Введите размер А ');Readln(A);
   Writeln(' Введите отклонение d ');Readln(D);
   Brak:=0;
   For I:=1 to N do
        If (Detali[I]<A-d)or(Detali[I]>A+d) then Brak:=Brak+1;
   
If Brak<>0 then Writeln('В партии количество бракованых деталей равно ', Brak)
   else Writeln('В партии нет бракованых деталей');
end.

program kkk;
uses crt;
var a:array[1..100]of integer;
     i,k:integer;
 
begin
 k:=0;
 clrscr;
 write('Введите кол-во абитуриентов: ');
 readln(n);
 for i:=1 to n do
 begin
  write('Введите оценку ',i,'-го абитуриента: ');
  readln(a[i]);
  if a[i]=2 then inc(k);
 end;
 
 writeln('К экзамену не допущено ',k,' абитуриентов');
 readln;
end.

program kkk;
uses crt;
var a:array[1..100]of integer;
     i,n:integer;
 
begin
 clrscr;
 write('Размерность: ');
 readln(n);
 writeln('Введите массив: ');
 for i:=1 to n do read(a[i]);
 readln;
 
 for i:=1 to n do if a[i]>=i then write(a[i],' ');
 readln;
end.

Const N=10;
 
Var
   A:Array[1..N] of Integer;
   I:Integer;
 
begin
   For I:=1 To N do Readln(A[i]);Writeln;
   For I:=1 to N do If A[I]>=I Then Writeln(A[I]);
end.

program kkk;
uses crt;
var a:array[1..100]of integer;
     i,n:integer;
 
begin
 clrscr;
 write('Размерность: '); 
 readln(n); {ввод кол-ва N элементов в массиве}
 writeln('Введите массив: ');
 for i:=1 to n do read(a[i]); {ввод самого массива (элементы с 1 до N)}
 readln;
 
 for i:=1 to n do if a[i]>=i then write(a[i],' '); {перебираем все элементы массива с 1 до N (i-номер элемента массива) и если элемент массива a[i] больше или равен номеру элемента i - то вывод на экран}
 readln;
end.

const
  N = 8;
 
var
  j, i, tmp: integer;
  mas: array[1..N] of integer;
 
begin
  randomize;
  writeln('Массив: ');
  for i := 1 to N do mas[i] := random(1, 100) - 5;
  for i := 1 to N do write(mas[i], ' ');
  writeln();
  
  writeln('Буква А: ');
  
  for j := 1 to N - 1 do 
    for i := 1 to N - 1 do 
      if mas[i] < mas[i + 1] then mas[i] := mas[i] else 
      begin
        tmp := mas[i + 1]; 
        mas[i + 1] := mas[i]; 
        mas[i] := tmp; 
      end; 
  for i := N downto 1 do write(mas[i], ' ');  
  
  writeln();
  writeln('Буква Б: ');
  
  for j := 1 to N - 1 do 
    for i := 1 to N - 1 do 
      if mas[i] < mas[i + 1] then mas[i] := mas[i] else 
      begin
        tmp := mas[i + 1]; 
        mas[i + 1] := mas[i]; 
        mas[i] := tmp; 
      end; 
  for i := 1 to N do write(mas[i], ' '); 
end.