В массиве найти количество чисел, меньших еденицы

Program pr1;
const
  j=50;
type
  arr= array [1..j] of real;
var
  a:arr;
  kol,i:integer;
begin
randomize;
 kol:=0;
for i:=1 to j do
   a[i]:=random(100)-random(100);
 
for i:=1 to j do begin
 if a[i]<1 then
   kol:=kol+1;
end;
Writeln('Kol=',kol);
readln;
end.

Program pr1;
var
  a:array [1..50] of real;        
  kol,i:integer;
begin
randomize;
 kol:=0;
for i:=1 to 50 do                            //заполняем массив числами
   a[i]:=random(100)-random(100);
 
for i:=1 to 50 do begin                     //Проверяем и считаем количество            
 if a[i]<1 then               
   kol:=kol+1;                              
end;
 
Writeln('Kol=',kol);
readln;
end.

Uses CRT;
Const n=15;
      m=14;
var a:array[1..n] of integer;
    y:array[1..m] of integer;
    i,j,index:integer;
begin
     ClRScr;
     for i:=1 to n do
     begin
     a[i]:=Random(20)-5;                           //Рандом.
     gotoxy(j+10,i);
     writeln(' a[',i,']=',a[i]);                   //Вывод массива
     end;
     index:=1;
     for i:=1 to n do
         begin
              if a[i]<0 then
                 begin
                      index:=i;                   //Индекс первого отрицательного
                      if index<>0 then break;
                 end
         end;
     writeln('Index=',index);
     for i:=1 to m do if index<>i then y[i]:=a[i]; //Присвоение в другой массив
     y[index]:=a[n];                               //Отрицательный элемент меняется в последним эл.
     for i:=1 to m do
         begin
          gotoxy(j+25,i);
          write(' y[',i,']=',y[i]);
         end;
end.

Uses CRT;
Const n=25;
var a:array[1..n] of integer;
    min,max,i,j,buf,index,undex:integer;
begin
     ClrScr;
     for i:=1 to n do
     begin
          a[i]:=Random(61);
          gotoxy(j+10,i);
          write(' a[',i,']=',a[i]);
     end;
min:=a[1];
max:=a[1];
for i:=1 to n do
      begin
           if a[i]< min then
           begin
                min:=a[i];
                index:=i;
           end;
           if a[i]> max then
           begin
                max:=a[i];
                undex:=i;
           end;
      end;
      gotoxy(j+50,i); write('Max=',max,' Index=',index,' ','Min=',min,' Index=',undex);
    buf:=a[index];
    a[index]:=a[undex];
    a[undex]:=buf;
    for i:=1 to n do
    begin
         gotoxy(j+25,i);
         write(' a[',i,']=',a[i]);
    end;
end.

Program pr1;
const
    n=15;
    m=14;
var
   x:array [1..n] of integer;
   y:array [1..m] of integer;
   i,s:integer;
begin
 randomize;
for i:=1 to n do                    //добавляем числа
   x[i]:=random(10)-3;
 
 s:=1;
for i:=1 to m do           
 begin
   if x[i]>0 then          //проверяем 
       y[i]:=x[i]          //если больше 0 добавляем
   else
     begin
       s:=i;              // меньше 0 записываем номер ячейки
       break              // выходим из цикла
     end;
 end;
 
for i:=s to m do            // продолжаем добавлять с +1 от первого отрицательного
   y[i]:=x[i+1];
 
for i:=1 to m do 
    Writeln('x[',i,']=',x[i],'      y[',i,']=',y[i]);
 
    Writeln('x[15]=',x[15]);
readln;
end.

Program pr1;
const
n=25;
var
a: array [1..n] of real;
i,temp1,temp2:integer;
max,min:real;
begin
for i:=1 to n do
    a[i]:=random(100)-50;
max:=-1e6;
min:=1e6;
for i:=1 to n do begin
 if a[i]>max then begin 
    max:=a[i];
    temp1:=i;
  end;
 if a[i]<min then begin 
    min:=a[i]; 
    temp2:=i; 
  end;
end;
a[temp1]:=min;
a[temp2]:=max;
 
for i:=1 to n do 
Writeln(a[i]:6:2);
Writeln('max=',max:6:2,'   min=',min:6:2);
readln;
end.