Программа на Delphi2

[Koksa]

вобще не понимаю как это делать. может вы поймете.
Даны целые числа а1,…а30. Пусть М - наибольшее, а m - наименьшее из а1,…а30. Получить в порядке возрастания все целые из интервала ( m, M ), которые не входят в последовательность а1,…а30.

[_Engine_]

var i, j : Integer;
     a : array [1..30] of Integer;
     m1,m2 : Integer;
     b : boolean;
m1 := 0; // макимальное число
m2 := high(Integer); // минимальное число
// заполняем массив
for i := 1 to 30 do
  Readln(a[i]);
// находим наибольшее и наименьшее числа
for i := 1 to 30 do
begin
  if a[i] > m1 then m1 := a[i];
  if a[i] < m2 then m2 := a[i];
end; 


// находим все целые в порядке возрастания
for i := m2 +1 to m1-1 do
begin
  b := false;
  for j := 1 to 30 do
    if i = a[i] then b := true;
  if not b then Writeln(i);
end;

[Koksa]

Спасибо большое!!