0. сделай форматирование текста отступами. Читать же невозможно...
1.
Код:
M[i]:=round(sin(Random(10))*10);
Зачем так сложно?
2.
Сумма нечетных чисел.
Код:
if (M[i] mod 2=0) then sum:=sum+M[i];
это сумма четных. Для нечетных условие должно быть
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. А вообще, впечатление, что код просто взят у товарища, у которого задание было в принципе похоже, но немного другое.