Turbo Pascal упорядочивание чисел в порядке возрастания

[-COREY-]

Ребят, помогите с задачей пожалуйста.
Даны целые числа a1,.., a30. Пусть M - наибольшее, а m - наименьшее из a1,.., a30. Получить в порядке возрастания все целые из интервала (m,M), которые входят в последовательность a1,.., a30.
код :
Program LAB_1;
uses crt;
var a:array[1..30] of integer;
k,n,i,min,max,y:integer;
begin clrscr;
writeln('a= ');
n:=5;
for i:=1 to n do
readln(a[i]);
min:=a[1];
max:=min;
i:=1;
while i<=n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
i:=i+1;
end;
writeln('min ',min);
writeln('max ',max);
k:=min;
y:=max;
while k<=y do
begin;
writeln(k);
k:=k+1;
end;
readkey;
end.
Тут проблема в том, что он выдаёт абсолютно все числа из интервала от мин. до макс., а надо только те,которые в последовательности. Подскажите плиз,как исправить

[Anatole]

Получить в порядке возрастания все целые из интервала (m,M), которые входят в последовательность a1,.., a30.

Практически задача сортировки массива по возрастанию. Уже не раз рассматривалось на форуме