пожалуйста кто разбирается с массивами мне по курсовой надо

var i,s:longint;
a:array [1..20] of integer;
begin
       writeln("vvedite massiv");
       for i:=1 to 20 do 
       begin       
              readln(a[i]);
              if a[i] mod 2<>0 s=s+a[i];
       end;
       writeln("Summa nechetnix elementov rovna ",s);
end.

var i,k,a:longint;
mas:array [1..20] of integer;
begin
       writeln("vvedite chislo A");
       readln(a);
       writeln("vvedite massiv");
       for i:=1 to 20 do 
       begin       
              readln(mas[i]);
              if mas[i]>a inc(k);
       end;
       writeln("Kolichestvo elementov bolshix a ravno ",k);
end.

var i,k,a:longint;
mas:array [1..20] of integer;
begin
       writeln("vvedite chislo k");
       readln(k);
       writeln("vvedite massiv");
       for i:=1 to 20 do 
       begin       
              readln(mas[i]);
              if (mas[i]>0) and (mas[i] mod k=0) inc(a);
       end;
       writeln("Kolichestvo polojitelnix elementov kratnix k rovno ",a);
end.

uses crt;
var
 ar: array[1..20] of integer;
 i, a, k, s: integer;
begin
 clrscr;
 s := 0;
 for i := 1 to 20 do
  begin
   write('Введите ', i,'ый элемент массива ');
   readln(ar[i]);
   if (ar[i] mod 2) = 1 then
    s := s + ar[i];
  end;
 clrscr;
 writeln('Введите число А');
 readln(A);
 clrscr;
 writeln('Введите число k');
 readln(k);
 clrscr;
 writeln('Элементы массива:');
 for i := 1 to 20 do
  write(ar[i]: 5);
 writeln;
 writeln('1) Сумма элементов, имеющих нечетное значение равна: ', s);
 writeln('2) Индексы тех элементов, значения которых больше ', a, ':');
 for i := 1 to 20 do
  if ar[i] > a then
   write(i: 5);
 i := 1;
 while (i <= 20) and (not ((ar[i] > 0) and (ar[i] mod k <> 0))) do
  i := i +1;
 writeln;
 if i = 21 then
  writeln('3) В данном массиве положительных элементов, кратных ', k, ' нет')
 else
  writeln('3) В данном массиве положительные элементы, кратные ', k, ' присутствуют');
 readkey;
end.

var i,s,k,a,n,m:longint;
mas:array [1..20] of integer;
begin
       writeln('vvedite chislo A');
       readln(a);
       writeln('vvedite chislo k');
       readln(k);
       writeln('vvedite massiv');
       for i:=1 to 20 do
       begin
              readln(mas[i]);
              if mas[i] mod 2<>0 then s:=s+mas[i];
              if mas[i]>a then inc(m);
          if (mas[i]>0) and (mas[i] mod k=0) then inc(n);
       end;
       writeln('Summa nechetnix elementov rovna ',s);
       writeln('Kolichestvo elementov bolshix a ravno ',m);
       writeln('Kolichestvo polojitelnix elementov kratnix k rovno ',n);
end.