помогите решить задачки.

Задание 3:

const n = 100;

var arr: array [1..n] of integer;

var numOfElements: integer;

begin

   for var i:=1 to n do

       arr[i]:=random(1, 1000);

   for var i:=1 to n do

   begin

       var tens:=arr[i] div 10 mod 10;

       var hundreds:=arr[i] div 100 mod 10;

       if (arr[i] gt; 99) and (tens = hundreds) then

       begin

           writeln(arr[i]);

           numOfElements += 1;

       end;

   end;

   writeln('Число частей: ' + numOfElements);

end.

Задание 4:

const n = 30;

var arr: array [1..n] of integer;

begin

   for var i:=1 to n do

       arr[i]:=random(-40, 72);

   writeln('Массив: ');

   for var i:=1 to n do

       write(arr[i], ' ');

   for var i:=1 to n-1 do

   begin

       var nom:=i+1;

       var temp:=arr[nom];

       for var j:=i+1 downto 2 do

       begin

           if (templt;arr[j-1]) then

           begin

               arr[j]:=arr[j-1];

               nom:=j-1;

           end;

       end;

       arr[nom]:=temp;

   end;

   writeln('Сортированный массив: ');

   for var i:=1 to n do

       write(arr[i], ' ');

end.