Как проверить принадлежит ли число массиву?

const n=10;
begin
randomize;
var logick:boolean;
var a:array [1..n] of integer;
 
for var i:=1 to n do a[i]:=random(10);
println('Массив');
writeln(a);
 
var c:=readInteger('Введите число: ');
for var i:=1 to n do begin
                     if (c=a[i]) then logick:=true else logick:=false;
                     end;
if (logick=true) then writeln('Число есть в массиве') else writeln('Числа нет в массиве');
end.

const
    Ans: Array[Boolean] Of String = ('Number is NOT present in array!', 'Number is present in array!');
var
    ar: Array[Byte] Of Integer;
    flag: Boolean;
    i, n: Byte;
    number: Integer;
begin
    Randomize();
    repeat
        Write('Input n (>0): ');
        ReadLn(n);
    until (n > 0);
    WriteLn; Write('Original array: ');
    for i := 0 to n - 1 do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4);
    end;
    WriteLn; i := 0;
    Write('Input number to search: '); ReadLn(number);
    repeat
        flag := (ar[i] = number);
        Inc(i);
    until ((flag) Or (i >= n));
    Write(Ans[flag]);
end.

const N = 10;
 
var x, i: Integer;
    a   : array [1..N+1] of Integer;
 
begin
  Randomize;
  for i := 1 to N do begin
    a[i] := Random(100) - 50;
    Write(' ', a[i])
  end;
  WriteLn;
  Write('Пренадлежит ли массиву значение: ');
  ReadLn(x);
  a[N+1] := x;
  i := 1;
  while a[i] <> x do Inc(i);
  if i > N then WriteLn('Нет.') else WriteLn('Да.')
end.

const n=10;
begin
randomize;
var logick:array [1..n]of boolean;
var a:array [1..n] of integer;
var k:byte;
for var i:=1 to n do a[i]:=random(10);
println('Массив');
writeln(a);
 
var c:=readInteger('Введите число: ');
for var i:=1 to n do if (c=a[i]) then logick[i]:=true else logick[i]:=false;
for var i:=1 to n do if (logick[i]=true) then inc(k);
 
if (k>0) then println('Число в массиве есть') else println('Числа в массиве нет');
if (k>0) then writeln('Число встречается ',k,' раз(а)');
 
end.

flag:=false;
for i:=1 to n do 
 if a[i]=c then flag:=true;
 
if flag then writeln('yes')
else writeln('no');

for i:=1 to n do 
 if a[i] = c then
  begin
   flag:=true;
   break;
  end;
if flag then writeln('yes')
else writeln('no');

for i:=1 to n do 
 if a[i] = c then
   break;
if a[i] = c then writeln('yes')
else writeln('no');

i:=n; Inc(i); repeat Dec(i) until (a[i]=number) or (i=0);
WriteLn(Ans[a[i]=number]);

found:=False;
for j:=1 to n do
  if a[j]=num then begin
    found:=True; Break;
  end;
if found then { тут можно использовать значение j в качестве индекса }

for j:=1 to n do
  if a[j]=num then Break;
if a[j]=num then { нашли }