помогите решить задачку 1 , пожалуйста

var

 Ar: array [1..20] of Integer;

 i, A, K, s, c: Integer;

begin

 WriteLn ('Массив:');

 for i := Low (Ar) to High (Ar) do begin

   Ar [i] := Random (100);

   Write (Ar [i], ' ');

 end;

 WriteLn;

 Write ('Введите A и K: ');

 ReadLn (A, K);

 s := 0;

 c := 0;

 Write ('Индексы элементов больше А: ');

 for i := Low (Ar) to High (Ar) do begin

   if Ar [i] gt; A then

     Write (i, ' ');

   if Ar [i] mod 2 lt;gt; 0 then

     s := s + Ar [i];

   if (Ar [i] gt; 0) and (Ar [i] mod K = 0) then

     c := c + 1;

 end;

 WriteLn;

 WriteLn ('Сумма частей, имеющих нечетное значение = ', s);

 if c gt; 0 then

   WriteLn ('Есть положительные элементы кратные К')

 else

   WriteLn ('Нет положительных элементов кратных К');

end.