Как проверить принадлежит ли данное число массиву? В DElphi

var r:boolean;
....
r:=false;
for i:=1 to n do
if i=x then
r:=true;
break;
end;
if r then showmessage('Yes');

n - Длина массива
x - искомое

function in_array(x:integer; a:array of integer):boolean;
var i:integer;
begin
result:=false;
for i:=low(a) to high(a) do if a[ i ]=x then begin result:=true; break; end;
end;

передать в эту функцию число Х и массив А.