Определить, есть ли среди введенных натуральных чисел число k

var n,k: integer;begin write('Введите целые числа n (n>0) и k: '); readln(n,k);  assert(n>0); var Exists := false; for var i := 1 to n do begin write('Введите ', i, ' целое число: '); var x := ReadInteger; if x = k then begin Exists := true; break; end;  end; if Exists then writeln('Число ', k, ' было введено') else writeln('Число ', k, ' не было введено');end.