Поиск заданого ключа в массиве

var
  Form1: TForm1;
  mas: array of integer;
implementation
 
procedure TForm1.Button1Click(Sender: TObject);
var
    m,j,i,p:integer;
    label lab1;
begin
  m:=StrToInt(Combobox1.Text);
  Randomize;
  SetLength(mas,m);
    For i:=0 to m-1 do
    begin
    inc(p); // scetcik
    lab1:
    mas[i]:=Random(15000);
      for j:=1 to i-1 do
        begin
          if mas[i]=mas[j] then
            begin
              goto lab1;
            end;
        end;
    end;
 
  for j:=1 to Length(mas)-1 do
  begin
 
    ListBox1.Items.Add(inttostr(mas[j]));
  end;
 
    Edit1.Text:=('Massiv iz : '+ IntToStr(p));
 end;

a[n+1]:=x;
i:=0;
repeat i:=i+1 until a[i]=x;
if i=n+1 ShowMessage("Found") 
else
ShowMessage("NO") ;

var
x: integer // искомое число
N: integer // индекс массива, он же счётчик
 
...
x:= intToStrDef(Edit1.Text,0); // Если введено не число - по умолчанию заменяется на "0"
...
for N:= 0 to Length(mas)-1 do  // просмотреть элементы массива, но не выходить за его длину
if mas[N] = x then break;         // если встретилось искомое число - выйти из цикла
 
if N < Length(mas) then ShowMessage(intToStr(x)+' found at position ' + intToStr(N) + '.')
else ShowMessage(intToStr(x) + ' not found.');

Length(mas):= Length(mas) + 1;
mas[Length(mas)-1]:= NewElement;

mas[Length(mas)-1]

for N:= 0 to Length(mas)-2 do