8. Створіть обробник події Click для кнопки, виконання якого встано
вить червоний колір фону поля, відступ поля від верхньої межі вікна
150 пікселів, зменшить відступ поля від лівої межі вікна на 50 піксе.
лів, установить колір тексту червоний і виведе в поле текст «Ми ви
користовуємо властивості поля!».
9. Збережіть нову версію проекту.
О. Виконайте нову версію проекту.
1. Закрийте вікно виконання проекту.
2. Створіть новий проект для обчислення значення виразу a (4b - 3с).
3. Збережіть проект у папці з іменем Практична 10_2, створеній у ва
шій папці.
4. Виконайте проект.
5. Закрийте вікно виконання проекту.
6. Закрийте вікно середовища Lazarus.
6.2. НАЛАГОДЖЕННЯ ПРОЕКТУ​

Блок-схема - в прилагаемом файле.
const n=5;
var
a:array[1..n,1..n] of integer;
i,j,min,imin,jmin:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
min:=a[1,2]; imin:=1; jmin:=2;
for i:=1 to n do
for j:=i+1 to n do
if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end;
writeln('min = a[',imin,',',jmin,'] = ',min);
end.

Пример:
Исходный массив:
  89  93   3  59  57
  15  57   5  65  85
   8   5  60  95  17
  83  67  21  20  93
  30  96  53  26  17
min = a[1,3] = 3

Открываете раздел по языку набираете ключевое слово: string.  Смотрите все процедуры и функции, для работы с переменными типа string 
 Находите описание функции Pos

function Pos(subs,s: string): integer;
        Возвращает позицию подстроки subs в строке s. Если не найдена, возвращает 0 

Если строка subs входит в строку s, то функция возвращает значение, большее нуля, номер первого символа в сроке s, начиная с которого, строка subs входит в строку s.
Например,  subs:='123';    s:='785123456';  k: integer;
k:=Pos(subs,s);   значение переменной k = 4;
Второй пример:   subs:='123;  s:=623145;
k:=Pos(subs,s);  k =0;   строка subs не входит в строку s