Составьте программку которая заполняет массив b 1..8 случайными целыми числами в

Для составления таковой программки может быть применена последующая логика: мы создаем массив и наполняем его числами.
Дальше сочиняем цикл, который будет осматривать каждый элемент массива от первого до предпоследнего включительно. Нам не нужен будет последний, так как он будет с кем-то в паре, если будет четным. А если нет то пары для него больше не будет, поэтому что он заключительный.
Еще нужен будет внутренний цикл, проверяющий пару для элемента первого цикла:
var a:array [1..8] of integer;
temp_para : integer;
begin
for i:integer1 to 8 do
a[i]  random(9) + 1;
for i:integer1 to 7 do
begin
if (a[i] mod 2 = 0) then
temp_paraa a[i];
for k:integer I + 1 to 8 do
if (a[k] mod 2 = 0) then
begin
writeln(Найдена пара , a[i], , , a[k]);
break;
end;
end;