Задание 14 Урок 15. Одномерные массивы

Урок 15. Одномерные массивы

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

const N = 15;
type myArr  = array[1..N] of integer;

procedure print(arr: myArr; msg:string);
var i:integer;
begin
  writeln(msg);
  for i:=low(arr) to high(arr) do
    write(arr[i], ' ');
  writeln();
end;

function arrayCheck(arr:myArr; k:integer): boolean;
var i,j: integer;
    flag:boolean;
    tempArr: myArr;
  begin
    for i:= 1 to high(tempArr) do
      tempArr[i] := 0;     // для красоты + метод без инициации своего типа массива

    for j:=1 to k do
      for i:=1 to high(arr) do
        if (j = arr[i]) then
          tempArr[j]:= j;
    writeln();
    print (tempArr, 'temporary array: ');    // для наглядности

    for j:=1 to k do
      if (tempArr[j] = 0) then
        flag:= false;
    result:=flag;


  end;

var
  i,k:integer;
  arr: myArr;
begin
  randomize;
  for i:= low(arr) to high(arr) do
    arr[i] := random(11);
  print(arr, 'original arr');
  writeln('write k num: ');
  readln(k);
  writeln('array check in progress', arrayCheck(arr, k));
  readln();
end.

//original arr
//2 4 0 9 7 10 9 9 3 8 1 1 9 0 10
//write k num:
//4
//array check in progress
//temporary array:
//1 2 3 4 0 0 0 0 0 0 0 0 0 0 0
//TRUE

//original arr
//4 6 9 6 9 4 8 6 7 9 3 10 2 10 6
//write k num:
//5
//array check in progress
//temporary array:
//0 2 3 4 0 0 0 0 0 0 0 0 0 0 0
//FALSE