выписать элементы, которые не входят в массив Опции

[redeezko]

Задача: пусть дан одномерный массив размерностью n, и Min-наименьшее, а Max-наибольшее из них. Получите в порядке возрастания все числа из интервала (min,max), которые не входят в данный массив.
Вот что я написал:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const n=5;
type u=array [1..n] of integer;
var x:u;
   i,min,max,v,k,j,a:integer;
begin
  v:=0;
  writeln('vvedite massiv');
  for i:=1 to n do read(x[i]);
  for i:=1 to n do
      begin
        k:=i;
        for j:=i+1 to n do
            if x[j]<x[k] then k:=j;
        v:=x[i];
        x[i]:=x[k];
        x[k]:=v;
      end;
  min:=x[1];
  max:=x[n];
  while min<max do
        begin
           min:=min+1;
             if x[i]<>min then
               write(min,' ');
                 i:=i+1;
        end;
  readln;
  readln;
end.

Но почему то у меня выводятся ВСЕ числа из данного интервала, кто знает подскажите где ошибка

[Unconnected]

Тогда можно так:

var min,max,i,i2,n:byte;
    mas:array[1..255] of byte;
    d:boolean;
begin
  randomize;
  writeln('Vvedite razmer massiva');
  readln(n);
  for i:=1 to n do mas[i]:=random(50)+1;
  min:=mas[1];max:=mas[1];
  for i:=2 to n do if min>mas[i] then min:=mas[i];
  for i:=2 to n do if max<mas[i] then max:=mas[i];
  for i:=min to max do
  begin
    d:=false;
    for i2:=1 to n do if (mas[i2]=i) then begin
                                           d:=true;
                                           break;
                                         end;
    if not(d) then writeln(i);
  end;
  readln;
end.