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

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

<a href="http://fkn.ktu10.com/?q=node/8614">Задача 14 урок 15</a>
var a: array[1..20] of integer;
 k, i, j, C: integer;
begin
  randomize();
  C:=0;  //счетчик совпадений диапазона
  for i:=low(a) to high(a) do
    a[i]:= random(20);
  writeln('Enter k');
  write('chislo k: ');
  readln(k);
  writeln('massiv:');
  for i:=low(a) to high(a) do
  write(a[i], ' ');

    for j:=0 to k do   //варианты от 0 до к
    begin
      for i:=low(a) to high(a) do
       if a[i] = j then  //поиск совпадений в массиве
        begin
          C:=C+1;  //при совпадении - счетчик +1
          break;
        end;
       if C=k then  //все числа есть в массиве
       begin
         writeln();
        writeln('vse ', k, ' chisla v massive');
        break;
       end;
    end;
  if C < k then //если совпадения не все
    begin
      writeln();
      writeln('ne vse chisla v massive');
    end;
  readln();
end.