Вот что я написал:
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.
Но почему то у меня выводятся ВСЕ числа из данного интервала, кто знает подскажите где ошибка