1. Создайте функцию, меняющую свойства вашей формы, назовите ее ChangeForm и реализуйте ее вызов при нажатии на кнопку. Функция должна принимать в себя значения необходимых свойств - цвет фона и заголовок. Например: ChangeForm(«цвет», «заголовок»); 2. Добавьте возможность вводить значения из программы через элементы TextBox
Пример готовой программы:

сад гад год код кот                        

страус! он бегает со скоростью 80 км/ч

var

a: array[1..100] of integer;

i,n: integer;

begin

readln(n);

writeln('исходный массив');

for i: =1 to n do

begin

a[i]: =random(50)-25;

write(a[i]: 4);

end;

writeln;

writeln('измененный массив');

for i: =1 to n do

begin

if a[i]=0 then a[i]: =n;

if a[i]< 0 then

if (a[i] mod 7=0) then a[i]: =abs(a[i])

else a[i]: =a[i]*(-2);

write(a[i]: 4);

end;

end.

и 2 и3 подходят, правда 2 - это частный случай 3