Исправить ошибку в коде

var
  a: array [1..100] of integer;
  i, j, k, n, x, low, high, mid: integer;
 
begin
  repeat
    write('Задайте размер массива: ');
    readln(n);
  until n in [1..100];
  writeln('Массив:');
  for i := 1 to n do
  begin
    repeat
      k := 0;
      a[i] := random(-101, 101);
      for j := 1 to i - 1 do
        if a[j] = a[i] then inc(k);
    until k = 0;
    write(a[i], ' ');
  end;
  writeln;
  write('Значение, которое нужно найти: ');
  readln(x);
  
  low := 1;
  high := n;
 
  repeat
    mid := (low + high) div 2;
    if a[mid] = x then
    begin
      writeln('Найдено на позиции ', mid);
      break;
    end
    else
      if a[mid] > x then
        high := mid - 1
      else
        low := mid + 1;
  until low > high;
 
  if low > high then
    writeln('Не найдено');
end.

var
  a: array [1..100] of integer;
  i, j, k, n, x, low, high, mid: integer;
 
begin
  repeat
    write('Задайте размер массива: ');
    readln(n);
  until n in [1..100];
  writeln('Массив:');
  for i := 1 to n do
  begin
    repeat
      k := 0;
      a[i] := random(-101, 101);
      for j := 1 to i - 1 do
        if a[j] = a[i] then inc(k);
    until k = 0;
    write(a[i], ' ');
  end;
  writeln;
  write('Значение, которое нужно найти: ');
  readln(x);
  
  procedure FillInc( var A : mas );
    var
      i : Integer;
    begin
      for i := 1 to max do
        A[i] := i;
    end;
  
  low := 1;
  high := n;
 
  repeat
    mid := (low + high) div 2;
    if a[mid] = x then
    begin
      writeln('Найдено на позиции ', mid);
      break;
    end
    else
      if a[mid] > x then
        high := mid - 1
      else
        low := mid + 1;
  until low > high;
 
  if low > high then
    writeln('Не найдено');
end.

  procedure FillDec( var A : mas );
    var
      i : Integer;
    begin
      for i := 1 to max do
        A[i] := max - i;
    end;

const
  m = 100;
var
  a: array [1..m] of integer;
  i, j, k, n, x, low, high, mid: integer;
begin
  randomize; {инициализация ГПСЧ}
  repeat {ввод размера массива}
    write('Задайте размер массива [1..', m, ']: ');
    readln(n)
  until n in [1..m];
  for i := 1 to n do a[i] := -99 + random(199); {генерация}
  for i := 1 to n - 1 do {сортировка}
    begin
      k := i;
      for j := i + 1 to n do if a[k] > a[j] then k := j;
      if k > i then
        begin
          x := a[i];
          a[i] := a[k];
          a[k] := x
        end
    end;
  writeln('Массив:'); {печать}
  for i := 1 to n do write(a[i]:4);
  writeln;
  write('Значение, которое нужно найти: '); {ввод значения}
  readln(x);
  low := 1; {бинарный поиск}
  high := n;
  repeat
    mid := (low + high) div 2;
    if a[mid] > x then high := mid - 1
    else
      if a[mid] < x then low := mid + 1
  until (low > high) or (a[mid] = x);
  if a[mid] = x then writeln('Найдено на позиции ', mid) {печать результата}
  else writeln('Не найдено')
end.