Составьте программу которая запрашивает значения элементов одномерного числового массива а состоящего из 10 элементов, формирует и выводит на экран в строку данный массив. Найти сумму положительных элементов массива

Program abc;     var a,b: array [1..100] of integer;         i,n, pr,k:integer;     begin          WRiteln('Введите количество элементов массива А');          readln(n);          for i:=1 to n do              begin                   writeln('Введите ', i,' элемент массива');                   readln(a[i]);              end;          for i:=1 to n do             b[i]:=a[i]*(-1);          writeln ('Массив В');          for i:=1 to n do              write(b[i], ' ');          pr:=1;          For i:=1 to n do              if a[i]<>0 then                 pr:=pr*a[i];          writeln;          writeln('Введите К');          readln(k);          for i:=1 to n do                    b[k]:=pr;          writeln ('Массив В');          for i:=1 to n do              write(b[i], ' ');       end.