В упорядоченном по невозрастанию массиве чисел определить, есть ли заданное число А; в противном случае определить номер

const maxCount = 100;
var arr : array [0..maxCount] of Integer;
procedure InputArray;
var i : Integer;
begin
  Write('число элементов: ');Read(arr[0]);Write('элементы: ');
  for i := 1 to arr[0] do Read(arr[i]);
end;
procedure Examen;
var i : Integer;
begin
  for i:=1 to arr[0]-1 do if arr[i]<arr[i+1] then begin WriteLn('массив не по условию');Halt;end;
end;
procedure Find;
var i,a:Integer;
begin
  Write('a = ');Read(a);
  if a<arr[arr[0]] then WriteLn('нет. место ',arr[0]+1)
  else if a>arr[1] then WriteLn('нет. место 1')
  else begin
    i:=0; repeat inc(i); until arr[i]<=a;
    if arr[i]=a then WriteLn('место ',i) else WriteLn('нет. место ',i);
  end;
end;
procedure Calc;
var i:Integer;
begin
  i:=arr[0];while(i>0)and(arr[i]<0)do dec(i);
  WriteLn('отрицательных ',arr[0]-i);
end;
begin
  InputArray;
  Examen;
  Find;
  Calc;
end.

const
  m = 100;
 
var
  r : array [0..m] of Integer;
 
procedure u;
var
  i : Integer;
begin
  Write('число элементов: ');
  Read(r[0]);
  Write('элементы: ');
  for i := 1 to r[0] do
    Read(r[i]);
end;
 
procedure v;
var
  i:Integer;
begin
  for i:=1 to r[0]-1 do
    if r[i]<r[i+1] then
      begin
        WriteLn('массив не по условию');
        Halt;
      end;
end;
 
procedure w;
var i,a:Integer;
begin
  Write('a = ');
  Read(a);
  if a<r[r[0]] then
    WriteLn('нет. место ',r[0]+1)
  else
    if a>r[1] then
      WriteLn('нет. место 1')
    else
      begin
        i:=0;
        repeat
          inc(i);
        until r[i]<=a;
        if r[i]=a then
          WriteLn('место ',i)
        else
          WriteLn('нет. место ',i);
      end;
end;
 
procedure x;
var
  i:Integer;
begin
  i:=r[0];
  while(i>0)and(r[i]<0)do
    dec(i);
  WriteLn('отрицательных ',r[0]-i);
end;
 
begin
  u;
  v;
  w;
  x;
end.