Решение №15 из главы 15.С использованием индексов массива

Задача №15 из главы 15

Дан массив длиной N (не более 100 элементов), состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0≤k Найдите в этом массиве длину самого короткого фрагмента, который содержит все числа от от 0 до k.
Например:
Для N = 6, k=2:
202211 длина=4
Для N = 10, k=2:
2022110012 длина=3
Для N = 15, k=3:
202233002303210 длина=4
Для N = 7, k=2:
0100020 длина=5

program seq_in_list15_15;
type Arr = array[1..100] of integer; // секция обьявления типов
 
 {  функция возвращает boolean значение }
function seq_in_list( seq_in: Arr; ls_in: Arr; ind1: integer;ind2: integer; ran: integer): boolean;
  var n, i, j : integer;
   
begin // начало тела функции
  n := 0;
  for i:=1 to ran do
  begin
     for j:=ind1 to ind2 do
     begin
         if( seq_in[i] ) = ( ls_in[j] ) then
         begin
             n += 1;
             break
         end;
     end;
  end;
  if(n = ran) then
     seq_in_list := True
  else
     seq_in_list := False;
   
end;  // завершение тела функции 
 
var
  i, j, k, b, m, n, count, len_list, range, step_len,index1, index2 : integer;
   fl: boolean;
  list_seq: Arr; // массив от 0 до k
  Arr_rand: Arr; // массив из случайно выбранных чисел из диапазона от 0 до k
 
begin   // основная программа
  m := 1;
  count := 0;
  fl := True;
  writeln('Input range');
  read(range);
  for i:=1 to range do // заполнение первого массива от 1 до range
    list_seq[i] := i;
  n := range;
  len_list := high(Arr_rand);
  step_len := range;
  
  for i:=1 to range  do   // вывод первого массива 
    write( list_seq[i], ' ');
  writeln();
   
  for j:=1 to high(Arr_rand) do  // заполнение второго массива
     Arr_rand[j]:=random(range)+1;
      
   for j:=1 to high(Arr_rand) do
     write( Arr_rand[j], '  ');  // вывод второго массива
  writeln();
 
  { кол-во проходов фрагмента, например в l = [1, 6, 4, 5, 1, 4, 2] кол-во 
   проходов из 3 элементов ([1,6,4], [6,4,5], [4,5,1],[5,1,4]),[1,4,2])
   будет = 5 с каждым новым витком уменьшая число проходов, например 
   в l = [1, 6, 4, 5, 1, 4, 2] кол-во 
   проходов из 4 элементов ([1,6,4,5], [6,4,5,1], [4,5,1,4],[5,1,4,2])
   будет = 4 и т.д  } 
  while (step_len <= len_list) and (fl = True) do
  begin
    j := 0;
    index1 := m;
    index2 := n;
    while(j < len_list - range + 1 - count) do
    begin                                     
       for k:=index1 to index2 do // вывод списка
          write(Arr_rand[k], ' ');                          
       writeln();
       { вызов функции }
       if(seq_in_list(list_seq,Arr_rand,index1,index2, range)) then
       begin
           writeln('True');
           for i:=index1 to index2 do  // вывод результата
           begin
              write(Arr_rand[i],'  ');
           end;
           fl := False;
           break  
       end
       else
       begin
          j += 1;
          index1 += 1;
          index2 += 1;
       end;
    end;   
    m := 1;
    count += 1;
    step_len += 1;
    n += 1;
    if not fl then // выход из цикла
      break
  end;
  if(step_len >= len_list) then
    writeln('False');
end.