Срочно нужна помощь задачи по массивам. Паскаль

1) Дан массив из 100 элементов (заполняется случайно). Найти сумму тех элементов массива, порядковые номера которых не совпадают со значением этого элемента.
2) Дан массив из 100 целых чисел (числа вводятся случайно). Найти максимальный элемент массива.