Помогите пожалуйста. 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; 
begin
write(Введите размер матрицы n и m);Readln(n,m);
write(Введите число А);Readln(a);
for i:=1 to n do begin
for j:=1 to m do begin
D[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.