[lmikle]

0. сделай форматирование текста отступами. Читать же невозможно...

1.

Код:

M[i]:=round(sin(Random(10))*10);

Зачем так сложно?

Код:

M[i]:= Random(21) - 10;

2.

Сумма нечетных чисел.

Код:

if (M[i] mod 2=0) then sum:=sum+M[i]; 

это сумма четных. Для нечетных условие должно быть

Код:

(M[i] mod 2 <> 0)

3.

Элементы, большие заданного A

Код:

if (M[i] div 100 = 0) and (M[i]<>0) then

Должно быть

Код:

if (M[i] > A) then // А вводится из Edit'а 
  sIdx := sIdx + IntToStr(I)+', '; // собираем просто в строку индексы.

4.

Кратные числу K.

Код:

var
  F : Boolean;
begin
  F := False;
  ...

  F := F Or (M[i] mod K = 0);

PS. А вообще, впечатление, что код просто взят у товарища, у которого задание было в принципе похоже, но немного другое.