Сделать линейный массив из 15 частей, заполнить числами промежутка (-10;10). Вывести

Const
    N = 15;
Var A:array[1..N] of integer;
    i,Kc,Kn,Sn:integer;
Begin
Kc:=0;
Sn:=0;
Kn:=0;
Randomize;
Write('Начальный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    if A[i] mod 2 = 0 then Kc:=Kc+1;
    if A[i] mod 2 lt;gt; 0 then
       Begin
       Sn:=Sn+A[i];
       Kn:=Kn+1;
       End;
    if A[i]gt;0 then A[i]:=0;
    End;
WriteLn;
WriteLn('Количество чётных: ',Kc);
WriteLn('Среднее арифметическое нечётных: ',Sn/Kn);
Write('Новый массив:');
For i:= 1 to N do
    Write(' ',A[i])
End.

Пример:
Начальный массив: -1 4 -8 9 -6 -10 0 3 9 -1 1 4 -2 -6 3
Количество чётных: 8
Среднее арифметическое нечётных: 3.28571428571429
Новый массив: -1 0 -8 0 -6 -10 0 0 0 -1 0 0 -2 -6 0

Main()
  int mas = int[21];
  int i, k_chet;k_odd, sum_odd;
  for (i=-10; ilt;11; i++)
    mas[i+10] = i;
  k_chet = 0//*********************************1)
  for (i=0; ilt;sizeof(mas); i++)
    if (mas[i]/2 = 0) k+chet++;
  k_odd=0; sum_odd=0//********************2)
  for (i=0; ilt;sizeof(mas); i++)
    if (mas[i]/2 != 0)
       k+odd++;
       sum_odd += mas[i];
     
    sum_odd = sum_odd/k_odd;
   for (i=0; ilt;sizeof(mas); i++) //***********3)
     if (mas[i] gt; 0) mas[i] = 0;
     printf(mas[i],%s);