В массиве из 10 случайных чисел, заполненном из промежутка [-10;20], отыскать

program arr;

var A: array[1..10] of integer;
p, s: integer;

begin
randomize;
p:= 0; //число положительных частей
s:= 0; // сумма значений частей с нечетными индексами

for i:integer:= 1 to 10 do //наполнение массива и расчеты 
begin
A[i]:= random(31) - 10;
write(A[i] : 4);
if A[i] gt; 0 then p:= p + 1;
if i mod 2 gt; 0 then s:= s + a[i];
end;

writeln(); writeln(); // вывод результатов
writeln( Сумма нечетных частей s = , s);
writeln( Число положительных частей p = , p);
writeln();

for i:integer:= 1 to 10 do //замена элементов массива 
begin
if A[i] lt; 10 then A[i]:= 10;
write(A[i] : 4)
endend.