Задача 14 Урок 15

Задача 14 Урок 15:

Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k<N.

var i, n, k: integer;
  z: boolean;
  a: array of integer;
begin
  randomize();
  write('Введите длину массива не более 100: ');
  readln(n);
  SetLength(a, n);
  for i := 0 to n - 1 do a[i] := random(n + 1);
  k := random(n);
  write('Массив: ');
  for i := 0 to n - 1 do write(a[i], ' ');
  writeln();
  writeln('k=', k);
  repeat
   z := false;
   for i := 0 to n - 1 do
    if a[i] = k then z := true;
   if z then k -= 1
   else break;
  until k < 0;
  if k = -1 then writeln('Массив правильный')
  else writeln('Массив неправильный');
  readln();
end.