Найти сумму элементов массива, имеющих нечетное значение

program mas;
uses crt;
var b: array[1..10] of integer;
    k,i,a,c,sum,max: integer;
begin
 clrscr;
 for i:=1 to 10 do
 begin
  write('b[',i,']= ');
  readln(b[i]);
 end;
 sum:=0;
 for i:= 1 to 10 do
 if b[i] mod 2 <>0 then sum:=sum+b[i];
 writeln('sum= ',sum);
 write('vv ch A: ');
 readln(a);
 for i:=1 to 10 do
 if b[i]>a then writeln(i);
 write('vv ch K: ');
 readln(k);
 c:=0;
 for i:=1 to 10 do
 if (b[i] mod k=0) and (b[i]>0) then c:=c+1;
 if c>0 then writeln('est')
 else writeln('net');
 max:=0;
 for i:=1 to 10 do
 if (b[i]<0) and (abs(b[i])>max) then max:=b[i];
 for i:=1 to 10 do
 begin
  if abs(b[i])= max then b[i]:=0;
  writeln('b[',i,']= ',b[i]);
 end;
 for i:=1 to k do
 b[i]:=b[i]-b[i]*2;
 for i:=1 to 10 do
 writeln('b[',i,']= ',b[i]);
 readln;
end.

uses crt;
const n=10;
var T:array [1..n] of integer;
i,sum,k,A,min,ind : integer;
flag:boolean;
begin
clrscr;
flag:=false;
writeln ('Vvedite massiv');
for i:=1 to n do
readln (T[i]);
clrscr;
for i:=1 to n do
write (T[i]:4);
writeln;
writeln ('Vvedite A');
readln (A);
writeln ('Vvedite k');
readln (k);
min:=T[1];
ind:=1;
for i:=1 to n do
begin
  if (T[i] mod 2<>0) then sum:=sum+T[i];
  if (T[i]>A) then write (i:4);
  if ((T[i]>0) and (T[i] mod k=0)) then flag:=true;
  if  T[i]<min then
    begin
    ind:=i;
    min:=T[i];
    end;
  if (i<=k) then T[i]:=-T[i];
end;
T[ind]:=0;
writeln;
for i:=1 to n do
write (T[i]:4);
writeln;
if flag=true then writeln ('Kratnie elementi est') else writeln ('Kratnih elementov net');
Readln;
end.

program mas;
uses crt;
var a: array [1..10] of integer;
    i: integer;
begin
 clrscr;
 for i:=1 to 10 do
 begin
  write('a[',i,']= ');
  readln(a[i]);
 end;
 for i:=1 to 10 do
 if a[i] mod 10 =0 then a[i]:=0;
 for i:=1 to 10 do
 writeln('a[',i,']= ',a[i]);
 readln;
end.