Помогите пожалуйста.
1. Дан массив (n*m). Элементы массива ввести случайным способом. Найти сумму элементов которые больше данного числа А. Число А ввести с клавиатуры.
2. Дан массив (n*m). Элементы массива ввести в программе. Найти первый элемент, являющийся простым числом и его инедксы.
3. Дан массив (n*m). Элементы массива ввести с клавиатуры. Найти количество четных элементов массива.

const nx=20;mx=20;var i,j,n,S,a,m:integer; D:array[1..nx,1..nx] of integer; beginwrite('Введите размер матрицы n и m');Readln(n,m);write('Введите число А');Readln(a);for i:=1 to n do beginfor j:=1 to m do beginD[i,j]:= random(100)-50;write(D[i,j]:4);if D[i,j] > a then S:= S + D[i,j];end;writeln;end;writeln;write('S=',S:5);end.