Помогите решить задачу на массивы,любую!!!
1.Найти сумму элементов в каждом столбике массива MxN, элементы которого задаются датчиком случайных чисел на интервале [-19;20]
2.Найти наименьшее четное число в матрице размером MxN, элементы которого задаются датчиком случайных чисел.

1)uses crt;constn=5;m=7;vari,j,s:integer;a:array[1..n,1..m]of integer;    begin       randomize;       clrscr;                    for i:=1 to n do                      begin                              for j:=1 to m do                                    begin                                                a[i,j]:=random(40)-19;                                                 write(a[i,j]:4);                                    end;                               writeln;                      end;writeln;          for j:=1 to m do                      begin                               s:=0;                                  for  i:=1 to n do                                            s:=s+a[i,j];                                writeln ('j:',j,' ', s);                        writeln;                  end;end.