Дан массив Y(11). Составить программку обработки массива: 1. Отыскать сумму отрицательных

Const
n = 11;

var
x: array[1..n] of integer;
i, k, d, s: integer;

begin
Randomize;
Writeln(Элементы массива);
k := 0; s := 0;
for i := 1 to n do
begin
d := Random(11) - 5;
Write(d:3);
if (i mod 2) = 0 then begin четное место
if d = 1 then Inc(k);
x[i] := d
end
else begin
if d lt; 0 then s := s + d;
x[i] := sqr(d)
end
end;
Writeln;
Writeln(Результирующий массив);
for i := 1 to n do Write(x[i]:3);
Writeln;
Writeln(Количество единиц на четных местах одинаково , k);
Writeln(Сумма отрицательных элементов на нечетных местах одинакова , s)
end.