Помогите решить, очень...

Помогите решить, очень нужно... 2. Составьте блок-схему алгоритма(её не надо) и программу вычисления в массиве A(10) количества положительныхэлементов.
3. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.

 

 2)
Program Massiv1;
var a:array[1..10] of real;
       i:integer;
       s:real;
begin
      clrscr;
       write('Введите элементы массива: ');
 
      s:=0;
 
      for i :=1 to 10 do
             begin
                  readln(a);   
 
                  if  (a>0) then s:=s+1;
 
           end;
writeln;
for i :=1 to 10 do     writeln(a:3:3);   
 writeln('Количество положительных элементов:',s);
 readkey;
 
 end.
 
 
 3)
Program Massiv2;
var a:array[1..10] of integer;
       i,b:integer;  
  begin
       clrscr;
       b:=2; 
       for i :=1 to 10 do
             begin
                a=i+b;
                 b:=b+1; 
 
                 write(a:2); 
 
             end;   
readkey;
end.