Помогите с информатикой 60 баллов.
Двумерный массив. Паскаль.
1) Дан двумерный массив размерностью 5 на 7. Найти максимальный элемент массива.
2) Дан двумерный массив размерностью 5 на 7. Найти произведение четных элементов.

Спасибо добрый человек:)

Пожалуйста

const  m=5;  n=7;var  a:array[1..m,1..n] of integer;  i,j,amax:integer;  p:real;begin  Randomize;  Writeln('Исходный массивэ');  for i:=1 to m do begin    for j:=1 to n do begin      a[i,j]:=Random(90)+10;      Write(a[i,j]:3)      end;    Writeln    end;  {Задача 1}  amax:=a[1,1];  for i:=1 to m do    for j:=1 to n do      if a[i,j]>amax then amax:=a[i,j];  Writeln('Максимальный элемент равен ',amax);  {Задача 2}  p:=1;  for i:=1 to m do    for j:=1 to n do      if a[i,j] mod 2=0 then p:=p*a[i,j];  Writeln('Произведение четных элементов равно ',p);end.Пример работыИсходный массивэ 94 20 49 80 70 55 40 62 74 71 51 88 10 76 68 11 11 74 96 50 69 98 34 25 93 52 53 61 68 85 35 15 77 78 97Максимальный элемент равен 98Произведение четных элементов равно 2.86826492979212E+33