Найти произведение положительных элементов массива и их количество

Код  program mas; const n=10; var a: array [1..n] of integer; counter,i, mnoj: integer; begin counter: =0; mnoj: =1; for i: =1 to n do begin a[i]: =-10+random(19); if a[i] > 0 then begin inc(counter); mnoj: = a[i] * mnoj; end; end; for i: =1 to n do write(a[i],' '); writeln('произведение равно ', mnoj ,' количество положительных элементов= ',counter); end.

1.var s,s1,s2: string; i,a,sum: integer; beginreadln(s); s1: =' '; s2: ='*'; sum: =0; for i: =1 to length(s) doif pos(s1,s) mod 2=1 then  beginsum: =sum+1; insert(s2,s,pos(s1,s)); delete(s,pos(s1,s),1); end; writeln(sum); writeln(s); end.var  s, s1, s2: string;   i, a, sum: integer; begin  readln(s);   s1 : = ' ';   s2 : = '*';   sum : = 0;   for i : = 1 to length(s) do    if pos(s1, s) mod 2 = 1 then      begin      sum : = sum + 1;       insert(s2, s, pos(s1, s));       delete(s, pos(s1, s), 1);     end;   writeln(sum);   writeln(s); end. 2.var  s, s1, s2: string;   i, a: integer; begin  readln(s);   if length(s) mod 4 = 0 then  begin    for i : = 1 to length(s) do    begin      if (i mod 4) = 1 then        begin        s1 : = copy(s, i, 1);         s2 : = copy(s, i + 3, 1);         delete(s, i, 1);         delete(s, i + 2, 1);         insert(s2, s, i);         insert(s1, s, i + 3);       end;       if (i mod 4) = 2 then      begin        s1 : = copy(s, i, 1);         s2 : = copy(s, i + 1, 1);         delete(s, i, 1);         delete(s, i, 1);         insert(s2, s, i);         insert(s1, s, i+1);       end;     end;   end;   writeln(s); end.

//знаю, что это решение далеко от понятия "изящество" //pascal abc.net v3.0 сборка 1111 var   max1,max2,max3,i,maxi1,maxi2: integer;   ar: array of integer; begin max1: =-2147483648; max2: =-2147483648; max3: =-2147483648; setlength(ar,1); readln(ar[0]); i: =0;   repeat   inc(i);   setlength(ar,i+1);   readln(ar[i]);   until ar[i]=0;   for i: =0 to i do   if ar[i]> max1 then   begin;     max1: =ar[i];     maxi1: =i;   end;   for i: =0 to i do   if (ar[i]> max2) and (i< > maxi1) then   begin;     max2: =ar[i];     maxi2: =i;   end;   for i: =0 to i do   if (ar[i]> max3) and (i< > maxi1) and (i< > maxi2) then max3: =ar[i]; write('max1=',max1,' max2=',max2,' max3=', max3); end.