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

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

Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k Указание: Проверку массива на соответствие условиям задачи вынести в подпрограмму (функцию)

program u15z17;
type
  massiv = array[1..100] of integer;
var
  m: massiv;
  k,i,x: integer;

function f1 (m: massiv; a: integer): integer;
var
  z,j,q: integer;
begin
  for j:=1 to a do
  begin
    q:=0;
    for z:=low(m) to high(m) do
    begin
      if j=m[z] then
      q:=1;
    end;
      if q=0 then       //если не встретили число то выходим
        break;
   end;
   result:=q;
end;

begin
  randomize();
  for i:=low(m) to high(m) do
  begin
    m[i] := random(100)+1;
    write (m[i], ' ');
  end;
  writeln;
  writeln('Vvedite k');
  readln(k);
  x:= f1(m,k);
  if x=0 then
    write ('No')
  else
    write ('Yes');
  readln();
end.