Выполняем в тетради 1. Выполните несколько операций в массиве Array:
1) массив типа float с числом элементов 10
и присвоить ему нулевые начальные значения.
2) Array
Вывести 3-й элемент массива 10.
3) присвоить 8-му элементу массива значение 3,14.
4) Увеличьте значение 1 элемента массива на 1 значение.
2. составить кроссворд или ребус с новыми терминами-
ры: массив, индекс, тип массива и т.д.

Procedure TForm1.Button1Click(Sender: TObject);
var
  x1,y1,x2,y2 : double;
  d1,d2 : double;
begin
  x1:= StrToFloat( Edit1.Text);
  y1:= StrToFloat( Edit2.Text);
  x2:= StrToFloat( Edit3.Text);
  y2:= StrToFloat( Edit4.Text);

  d1:=Sqrt(x1*x1+y1*y1);  //Теорема Пифагора
  d2:=Sqrt(x2*x2+y2*y2);  //Теорема Пифагора

  if (d1<d2) then
    Label1.Caption := 'Ближе точка с координатами X1,Y1'
  else
    if (d1>d2) then
      Label1.Caption := 'Ближе точка с координатами X2,Y2'
    else
      Label1.Caption := 'Точки находятся на одинаковом расстоянии'
end;

Для увеличения быстродействия алгоритма можно d1 и d2 рассчитывать так: 
d1:= x1*x1+y1*y1;
d2:= x2*x2+y2*y2;

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

begin

   var zarazheno := 1;

   var sum := zarazheno;

   for var i := 1 to 4 do

   begin

       zarazheno *= 10;

       sum += zarazheno;

       WritelnFormat('{2} Новозараженно = {0}, всего заражено = {1}', zarazheno, sum, i);

   end;

end.

Вывод

1 Новозараженно = 10, всего заражено = 11

2 Новозараженно = 100, всего заражено = 111

3 Новозараженно = 1000, всего заражено = 1111

4 Новозараженно = 10000, всего заражено = 11111