Есть такая программа для программирования называется scratch и мне надо сделать так чтобы спрайт считал от 1 до 100 когда флажок нажат30

program DotsAndKvadrants;

type

 dot = record

   x, y: real;

 end;

begin

 var n := 2;

 var a := new dot[n];//массив из точек

 for var i := 0 to n - 1 do

 begin

   (a[i].x, a[i].y) := ReadlnReal2($'Введите через пробел координаты {i+1} точки:');

   if a[i].x * a[i].y <> 0 then

   begin

     Write('Точка ', a[i], ' расположена в');

     if a[i].x * a[i].y > 0 then  

       if a[i].x > 0 then writeln(' 1-ом квадранте')

       else writeln(' 3-ем квадранте')

     else if a[i].x > 0 then writeln(' в 4-ом квадранте')

     else writeln('о 2-ом квадранте');

   end

   else if a[i].x = 0 then

     if a[i].y = 0 then

       Writeln('точка ', a[i], ' - начало координат')

     else Writeln('точка ', a[i], ' лежит на оси OX')

   else Writeln('точка ', a[i], ' лежит на оси OY')

 end;

end.

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var n:=ReadInteger('Количество строк (столбцов) в матрице:');

 Writeln('*** Исходная матрица ***');

 var a:=MatrRandom(n,n,-99,99);

 a.Println(4);

 Println(4*a.ColCount*'-');

 var i:=ReadInteger('Укажите номер столбца (счет от 1):');

 if i.InRange(1,a.ColCount) then

 begin

   var col:=a.Col(i-1);

   Println('Сумма элементов столбца',col.Sum,'max=',col.Max)

 end

 else

   Println('Недопустимый номер колонки')

end.