Одномерные массивы. Решение задач1. Найти количество частей массива2.Найти

Допустим, массив теснее задан, потому его ввод писать не буду. Kol - количество частей массива

var

 mas, mas_ob: array[0..999] of integer;

 i, kol_null, sum, sum_nech, sum_ch, pp, i1, kol, max: integer;

begin

 kol_null := 0;

 sum := 0;

 sum_nech := 0;

 sum_ch := 0;

 i1 := 0;

 max := -10000;

 for i := 0 to kol do  

 begin  

   if mas[i] lt;gt; 0 then kol_null += 1; //2

   sum += mas[i]; //3

   if mas[i] mod 2 lt;gt; 0 then sum_nech += mas[i];//4

   if mas[i] mod 2 = 0 then sum_ch += mas[i];  //5

   if mas[i] lt; 0 then mas[i] := абс(mas[i]);  //6

   if mas[i] mod 21 = 0 then mas[i] := 1; //7

   if mas[i] gt; max then max := mas[i]; //11

 end;  

 pp := mas[0];//8

 mas[0] := mas[kol]; //8

 mas[kol] := pp;//8

 for i := kol downto 0 do //10

 begin

   mas_ob[i] := mas[i];

   i1 += 1;

 end;

 writeln('Количество ненулевых частей: ', kol_null);

 writeln('Сумма всех элеметов: ', sum);

 writeln('Сумма нечетных элеметов: ', sum_nech);

 writeln('Сумма четных элеметов: ', sum_ch);

 writeln('Максимальный элемент: ', max);

end.