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

uses crt;
var a:array[1..10] of integer;
max,min,i,j,s:integer;
begin
clrscr;
min:=40;
max:=0;
randomize;
for i:=1 to 10 do
 begin
  a[i]:=random(51)-10;
  write(a[i]:4);
  if (a[i]>=max) then max:=a[i];
  if (a[i]<=min) then min:=a[i];
 end;
writeln;
writeln('Максимальный ',max);
writeln('Минимальный ',min);
writeln('Результат');
for i:=min+1 to max-1 do
 begin
  for j:=1 to 10 do
   if (a[j]=i) then s:=i;
  for j:=1 to 10 do
   if (a[j]<>i) and (s<>i) then
    begin
     write(i:4);
     break;
    end;
  s:=0;
 end;
readln
end.