Программа будет выглядеть следующим образом:

program SearchNumberInArray;
var
arr: array of Integer;
num, i: Integer;
found: Boolean;
begin
// Ввод массива
WriteLn('Введите размер массива:');
ReadLn(num);
SetLength(arr, num);
WriteLn('Введите элементы массива:');
for i := 0 to num - 1 do
begin
ReadLn(arr[i]);
end;
// Поиск числа в массиве
WriteLn('Введите число для поиска:');
ReadLn(num);
found := False;
for i := 0 to Length(arr) - 1 do
begin
if arr[i] = num then
begin
found := True;
Break;
end;
end;
if found then
WriteLn('Число ', num, ' найдено в массиве')
else
WriteLn('Число ', num, ' не найдено в массиве');
end.

Программа сначала запрашивает у пользователя размер массива и элементы массива, затем запрашивает число для поиска. После этого программа проверяет наличие этого числа в массиве и выводит соответствующее сообщение.