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

Const    len = 1000;

type
    longnum = array[1..len] of longint;

var
      n, i: longint;
      s: longnum;
    
procedure InitLongNumber(n: longint; var a: longnum);
var
    i: longint;
begin
    for i := 1 to len do
        if n <> 0 then
            begin
                a[i] := n mod 10;
                n := n div 10
             end else
                a[i] := 0;
end;

function mul(a: longnum; k: longint): longnum;
var
    i, tmp: longint;
begin
    tmp := 0;
    
    for i := 1 to len - 1 do
    begin
        a[i] := a[i] * k + tmp;
        tmp := a[i] div 10;
        a[i] := a[i] mod 10 
    end;

    result := a
end;

procedure PrintLongNumber(a: longnum);
var
    i, j: longint;
begin
    i := len;
    while a[i] = 0 do
        dec(i);
    for j := i downto 1 do
        write(a[j])
end;

begin   
    readln(n);
    InitLongNumber(1, s);
    for i := 1 to n do
            s := mul(s, i);
    write(n, '! = ');
    PrintLongNumber(s);
end. 

1)
var a=array[1..10]of integer;
i,max,poz: integer;
begin
writeln('vverite 10 elementov')
for i:=1 to 10 do
read(a[i]);
max:=a[1];
poz:=1;
for i:=2 to 10 do
if (a[i]>max)then begin max:=a[i];poz:=i; end;
writeln('max = ',max,' ego nomer =', poz);
end.
2)
var a=array[1..10]of integer;
i:integer;
begin
writeln('vverite 10 elementov')
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if (a[i]>=10)and(a[i]<=99) then writeln(a[i],' ego nomer',i);
end.
3)
var a=array[1..10]of integer;
i,k,poz:integer;
begin
writeln('vverite 10 elementov')
for i:=1 to 10 do
read(a[i]);
k:=0;
for i:=10 downto 1 do
begin
if(a[i] mod 3 =0) then begin k:=k+1;poz:=i; end;
if(k=2) then writeln(a[i],' ego nomer = ',i);
end;
if(k=0) then writeln('kratnyh 3 net');
if(k=1) then writeln('kratnyy 3 tol'ko 1: a[',poz,']=',a[poz]);
end.