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

var a:array[1..10]of integer;
i,C,p,k,j:integer;
begin
writeln('введите C');
read(C);p:=1;
writeln('введите элементы массива');
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do begin
if(a[i]<C)then break
else begin
for j:=1 to 10 do begin
if(a[j]<C)then k:=k+1;
end;writeln(k);end;end;
for j:=1 to 10 do
    begin
      read(a[j]);
      if a[j]>0 then p:=p+sqr(a[j]);
    end;
    if p<>0 then writeln('Сумма квадратов положительных элементов = ',p)
     else writeln('Нет положительных элементов');
    readln;
end.

i:=10; while (i>0) and (c>a[i]) do Dec(i);
if (i>0) and (c=a[i]) then
  {число C есть}
else
  {числа C нет};

for i:=1 to 10 do
  if a[i]=c then begin
    {число C есть}
    Break;
  end else if a[i]>c then begin
    {числа C нет}
    Break;
  end;

for i:=10 downto 0 do
  if a[i]=c then begin
    {число C есть}
    Break;
  end else if a[i]<c then begin
    {числа C нет}
    Break;
  end;

const n=10;
type
  TVector = array [0..n-1] of Real;
 
function LowerBound(const v: TVector; x: Real): Integer;
var lt, rt, md: Integer;
begin
  lt:=0; rt:=n;
  while lt<rt do begin
    md:=lt+(rt-lt) div 2;
    if x>v[md] then lt:=md+1 else rt:=md;
  end;
  LowerBound:=lt;
end;
 
var
  a: TVector;
  c, s: Real;
  i: Integer;
begin
  Write('A(',n,'): '); for i:=0 to n-1 do Read(a[i]);
  Write('Число C: '); ReadLn(c);
  i:=LowerBound(a,c);
  if (i<n) and (a[i]=c) then
    WriteLn('Заданное число есть в массиве')
  else begin
    WriteLn('Больше заданного числа ',n-i,' элементов');
    s:=0; for i:=0 to n-1 do if a[i]>0 then s:=s+Sqr(a[i]);
    if s<>0 then WriteLn('Сумма квадратов положительных ',s)
    else WriteLn('Нет положительных');
  end;
end.