Паскаль

[PolinaS]

Пожалуйста, помогите решить задачи..
1. Найти сумму нечетных элементов массива целых чисел. Размерность массива – 20. Заполнение массива осуществить случайными числами от -100 до 100.
2. Записать программу, которая из исходной строки составляет новую, в которую переписываются только буквы Q,W,E,R,T,Y исходной строки

[BDA]

1-я:

Uses CRT;
var
a:array[1..20] of integer;
sum,i:integer;
BEGIN
sum:=0;
randomize;
for i:=1 to 20 do
	a[i]:=random(201)-100;
for i:=1 to 20 do
	write(a[i],' ');
writeln;
i:=1;
while (i<=20) do
begin
	sum:=sum+a[i];
	i:=i+2;
end;
writeln('Sum: ',sum);
readln;
END.

2-я:

Uses CRT;
var
s,res:string;
i:integer;
b:set of char;
BEGIN
b:=['Q','W','E','R','T','Y'];
res:='';
readln(s);
for i:=1 to length(s) do
  if s[i] in b then
    res:=res+s[i];
writeln(res);
readln;
END.