задача на одномерный массив

[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
           if x[i]<>min then
               write(min,' ');
           min:=min+1;
           i:=i+1;
        end;
  readln;
  readln;
end.

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

[Sweta]

while min<=max do
        begin
           if x[i]<>min then
               write(min,' ');
           min:=min+1;
           i:=i+1;
        end;

Паскаль не знаю, программу исправить не могу..
Но по-моему эдесь не хватает исключения тех элементов, которые есть в массиве, т.е Вам необходимо еще проверить не входит ли каждое увеличенное число в заданный массив.

[redeezko]

Вот именно это у меня и не получается..

[DmuS]

Исключить элементы довольно просто, просто добавляем в цикл While цикл For пробега по массиву со счетчиком и условие, т.е.

 While i<max do
    Begin
      For j:=1 to n do
         If a[j]=i then
           h:=h+1;
      If h=0 then
        Begin
          Inc(k);
          b[k]:=i;
        End;
      Inc(i);
      h:=0;
    End;

Вот мой вариант программы:

 Program test;
 Uses crt;
  Type
      M=array [1..100] of Byte;
  Const
       n=5;
  Var
     a,b:M;
     i,j,h,k,min,max:Byte;
BEGIN
  ClrScr;
  For i:=1 to n do
     Read(a[i]);
  min:=a[i];
  max:=a[i];
  For i:=1 to n do
     Begin
       If min>a[i] then
         min:=a[i];
       If max<a[i] then
         max:=a[i];
     End;
  k:=0; h:=0;
  i:=min+1;
  While i<max do
    Begin
      For j:=1 to n do
         If a[j]=i then
           h:=h+1;
      If h=0 then
        Begin
          Inc(k);
          b[k]:=i;
        End;
      Inc(i);
      h:=0;
    End;
  For i:=1 to k do
     Write(b[i],' ');
  ReadKey;
END.

[redeezko]

разобрался. спасибо большое за помощь