Здравствуйте, Artemian.
В приложении код. Функция F проверяет на четность каждый элемент массива и возвращает значение true если все элементы нечетные и false в противном случае.
Элементы массива выводятся в поле Memo1.

Приложение:
const m=10;
var
A:array[1..m]of integer;
unction F(B:array of integer):boolean;
var k:integer;
begin
result:=true;
for k := Low(B) to High(B) do
if not odd(B[k]) then
begin
result:=false;
//дальше можно не проверять
break; //выход из цикла
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
randomize;
// Заполнение массива случайными числами
for k := 1 to m do
begin
A[k]:=random(1000);
Memo1.Lines.Add(IntToStr(A[k]));
end;
// Проверка элементов массива на нечетность
//и вывод результата
if F(A) then
ShowMessage('Все числа нечетные')
else
ShowMessage('В массиве есть четные числа');
end;