В случайном порядке вводятся числа от 0 до 36. Написать программу, которая после 100 введений выводит числа, которые ни разу не вводились — Pascal(Паскаль)

var
  i : Integer;
  inputDig : byte;
  WasInput : set of byte;
  IsNil : boolean;
begin
  i := 0;
  wasInput := [];
  repeat
    write(i+1,'-значение');
    read(InputDig);
    if InputDig > 36 then
 
    else begin
      wasInput := wasInput + [inputDig];
      inc(i)
      end;
  until i = 100;
  writeln;
  isNil := true;
  for i := 0 to 36 do
    if not( I in wasInput) then begin
      write(i:3);
      isNil := false
      end;
     
  if IsNil then
    Write('введены все значения');
end.