Pascal abc. двухмерный массив. 1)вычислить количество чётных элементов 2) сумму элементов столбца по его введённому номеру

Program sdf;var a:array[1..10000,1..10000] of integer; i,j,k,h,m,n:integer; s:real;beginwriteln('vvedite kolichestvo strok');readln(n);writeln('vvedite kolichestvo stolbtsov');readln(m);writeln('vvedite elementy matricy');for i:=1 to n dofor j:=1 to m doreadln(a[i,j]);k:=0;for i:=1 to n dofor j:=1 to m do if a[i,j] mod 2 = 0then k:=k+1;Writeln('vvedite nomer stolbtsa');readln(h);for j:=1 to m dos:=s+a[j,h];writeln('kolichestvo chetnyh', k);writeln('symma elementov stolbtsa', s);end.