Найти элементы, не входящие в заданный вектор

uses crt;
const nmax=100;
var vector:array[1..nmax] of integer;
    n,i,j:byte;
    mn,mx:integer;
begin
clrscr;
randomize;
repeat
write('Размер вектора от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Вектор');
for i:=1 to n do
 begin
  vector[i]:=-25+random(51);
  write(vector[i]:4);
  if vector[i]=-1 then mx:=-1;
  if vector[i]=1 then mn:=1;
 end;
writeln;
if mn=1 then writeln('В векторе минимальный положительный=1, меньше его нет')
else writeln('Минимальное положительное которого нет в векторе=1');
if mx=-1 then writeln('В векторе максимальное отрицательное=-1, больше его нет')
else  writeln('Максимальное отрицательное которого нет в векторе=-1');
readln
end.

const n=10;
type mas=array[1..n] of integer;
var a:mas;
    i,max,min,imax,imin:integer;
function vhod(x:mas;j:integer):boolean;
var k:integer;
    f:boolean;
begin
 k:=1;
 f:=false;
 while (k<=n)and(not f) do
  begin 
   if x[k]=j then f:=true;
   inc(k)
  end; 
 vhod:=f             
end;    
begin
    randomize;
    max:=-maxint-1;
    min:=maxint;
    writeln('исходный вектор');
    for i:=1 to n do
     begin
      a[i]:=-10+random(21);
      write(a[i],' ');
      if (a[i]<0)and(max<a[i]) then max:=a[i];
      if (a[i]>0)and(min>a[i]) then min:=a[i];
     end;
    writeln;
    if max=-maxint-1 then max:=-1
                     else max:=max+1;
    while (vhod(a,max))and(max<0) do inc(max);
    if max=0 then writeln('максимального отрицательного, не входящего в этот вектор нет')
                else writeln('максимальное отрицательное, не входящее в этот вектор ',max);
    if min=maxint then min:=1
                  else min:=min-1;
    while (vhod(a,max))and(min>0) do dec(max);
    if min=0 then writeln('минимального полжительного, не входящего в этот вектор нет')
                else writeln('минимальное положительное, не входящее в этот вектор ',min);
end.

const n=10;
type mas=array[1..n] of integer;
var a:mas;
    i,j,max,min:integer;
function vhod(x:mas;j:integer):boolean;
var k:integer;
    f:boolean;
begin
 k:=1;
 f:=false;
 while (k<=n)and(not f) do
  begin 
   if x[k]=j then f:=true;
   inc(k)
  end; 
 vhod:=f             
end;    
begin
    randomize;
    writeln('исходный вектор');
    for i:=1 to n do
     begin
      a[i]:=-10+random(21);
      write(a[i],' ');
     end;
    writeln;
    j:=-1;
    while vhod(a,j)do dec(j);
    writeln('максимальное отрицательное, не входящее в этот вектор ',j);
    j:=1;
    while vhod(a,j)do inc(j);
    writeln('минимальное положительное, не входящее в этот вектор ',j);
end.