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

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

var n:array [1..100] of integer;
    k,i,j,d:integer;
begin
  randomize();
  d:=0;
  for i:=1 to 100 do
    n[i]:=random(101);
  writeln('Vvedite chislo: ');
  readln(k);
  for j:=1 to 100 do
    begin
      if(n[j]=d) then
        if(d=k) then
          begin
            write ('Vse elementi est');
            break;
          end
        else
          d:=d+1
      else
        begin
          write('Ne vse elementi naideni');
          break;
        end;
    end;
end.   

Консоль:

Vvedite chislo: 
5

Ne vse elementi naideni