Поиск максимального и минимального элемента массива(с существенным дополнением)

[Dayterius]

Дан массив целых чисел. Найти в этом массиве минимальный элемент N и максимальный элемент M. Получить в порядке возрастания все целые числа из интервала (N;M) которые не входят в данный массив.

С поиском min и max проблемы нет, проблема со второй частью задания.

[Nomand]

текст всей программы:

uses crt;
var count,j,i,max,min:integer;
const k=20;
var a:array[1..k] of integer;

procedure rndr(n:integer);
var i,j:integer;
begin
i:=1; j:=1;
for i:=1 to k do
    for j:=1 to k do
      if ((a[i]=a[j]) and (i<>j)) then begin a[i]:=random(n); rndr(n); end;
end;

begin
randomize;
clrscr;
for i:=1 to k do begin a[i]:=random(500); rndr(500); end;
min:=a[1];
max:=a[1];
 for i:=1 to k do begin
   if a[i]<a[i+1] then max:=a[i+1];
   if a[i]>a[i+1] then min:=a[i+1];
 end;

 count:=0;
for i:=min to max do begin
count:=0;
  for j:=1 to k do begin
    if i<>a[j] then count:=count+1;
  end;
  if count=k then begin writeln(i); count:=0; end;
end;

readln;
end.

[Dayterius]

Спасибо большое, но программа работает не так как нужно....
Она выводит все целые числа ДО минимального...

[Dayterius]

program one;
uses crt;
const n=10;
var
A:array [1..n] of integer;
i,j,max,min:integer;
flag:boolean;

BEGIN

clrscr;
randomize;


for i:=1 to n do
begin
a[i]:=random (50);
write (a[i], ' ');
end;



max:=a[1];
for i:=1 to n do
if a[i]>max
then max:=a[i];


writeln;
write ('maximalnii el-t massiva:', max);


min:=a[1];
for i:=1 to n do
if a[i]<min
then min:=a[i];


writeln;
write ('minimalnii el-t massiva:', min);

writeln;
write ('chisla, ne vhodyashie v diapazon: ');
for i:=min+1 to max-1 do
begin
flag:=false;
for j:=1 to n do
if a[j]=i then begin flag:=true; break; end;
if flag=false then write (i,' ');
end;
readkey;
END.

[Dayterius]

Спасибо большое нашел на другом сайте вот выкладываю вдруг кому пригодиться.. :-)
Все работает, проверил

[Nomand]

исправил, оштбка была в том, что забыл обнулить каунт =)

[Dayterius]

Ну я нашел уже, но все равно спасибо...