Помогите 8 и 9 по информатике 9 класс контрольная

задание 8:

var

 A: array [1..10] of Integer;

 i, s: Integer;

begin

   Randomize;

   WriteLn ('Массив случайных частей:');

   for i := Low (A) to High (A) do begin

     A [i] := Random (10);

     Write (IntToStr (A [i]) + ' ');

   end;

   s := 0;

   for i := Low (A) to High (A) do begin

     if i mod 2 = 0 then

       s := s + A [i];

   end;

   Writeln;

   Writeln ('Сумма частей четных индексов = ' + IntToStr (s));

end;

// конец программы

// задание 9 - можно взять часть кода из 8 -го

var

 A: array [1..10] of Integer;

 i: Integer;

begin

   Randomize;

   WriteLn ('Массив случайных частей:');

   for i := Low (A) to High (A) do begin

     A [i] := Random (10);

     Write (IntToStr (A [i]) + ' ');

   end;

end;