Задача на строку или массив

uses crt;
var a:array [1..100] of integer;
    b:array [1..100] of integer;
    i,j,e,max,min,kp,k,n: integer;
begin
write('n=');
readln(n);
for i:=1 to n do
    a[i]:=random(21)-10;          //формирую массив случайных чисел размера n
writeln ('Исходный массив');
for i:=1 to n do
    write (a[i],' ');             //вывожу исходный массив на экран
min:=0;
max:=0;
for i:=1 to n do
    begin
    if a[i]>max then max:=a[i];   //определяю максимальный и минимальный элементы массива
    if a[i]<min then min:=a[i];
    end;
writeln;
writeln('Минимальный элемент ',min);
writeln('Максимальный элемент ',max);
e:=1;
j:=min+1;
while j<max do                     //перебираю все целые числа от минимума до максимума
      begin
      for i:=1 to n do
          if a[i]=j then inc(kp);    //если число встречается в массиве, увеличивваю количество повторений на 1
      if kp=0 then                   //если элемент в массиве не встречался, то
         begin
         b[e]:=j;                    //заношу его в новый массив
         e:=e+1;                     //увеличиваю счетчик нового массива на 1
         end;
         j:=j+1;
         kp:=0;                     //обнуляю значение количества повторений числа
      end;
k:=e;
writeln ('Итоговый массив');
for e:=1 to k-1 do
    write (b[e],' ');               //вывожу новый массив на экран
end.