Составьте программу, которая запрашивает значения одномерного числового массива А, состоящего из 10 элементов - Pascal ABC

Program mas2;
var A:array[1..10] of integer;
i,p,k,s: integer;
begin
writeln('Массив А:');
p:=1;
k:=0;
s:=0;
for i:=1 to 10 do
begin
write('Введите ',i,'-e число ');
readln(A[i]);
if A[i]<0 then p:=p*A[i];
if i mod 2=1 then k:=k+1;
if A[i] mod 4=0 then s:=s+1;
end;
write('Строка чисел: ');
for i:=1 to 10 do
begin
write(a[i],' ');
end;
writeln();
writeln('Произведение отрицательных элементов массива = ',p);
writeln('Количество элементов, стоящих на нечётных местах = ',k);
writeln('Сумма элементов, кратных 4 = ',s);
end.