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

[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.

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

[Lapp]

Unconnected,
1. зачем делать в трех циклах то, что можно сделать в одном?
2. зачем приучать новичка к break там, где все легко делается через while/repeat?

Короче, redeezko, вот я начал с твоей проги, но потом вынужден был уйти..

uses
  SysUtils;
const
  n= 20;
type
  u=array [1..n] of integer;
var
  x: u;
  i,j,min,max,r: integer;

begin
  r:=n;
  min:=r;
  max:=-r;
  for i:=1 to n do begin
    x[i]:=Random®-Random®;
    if min>x[i] then min:=x[i];
    if max<x[i] then max:=x[i]
  end;
  for i:=min+1 to max-1 do begin
    j:=1;
    while (j<=n)and(i<>x[j]) do Inc(j);
    if j>n then WriteLn(i)
  end
end.

Спрашивай, что неясно.