Дано
число k (0 < k < 11) и матрица размера 4 x 10. Найти сумму и произведение
элементов k-го столбца данной матрицы.
Помогите пожалуйста, нужно написать программу в Паскале

varj,i,k,sum,proizv: integer;A: array [1..4,1..10] of integer;beginproizv:=1;randomize;writeln('Матрица: ');for i:=1 to 4 do for j:=1 to 10 do  A[i,j]:=random(21)-10;for i:=1 to 4 do begin for j:=1 to 10 do  write(A[i,j]:5);  writeln;  writeln; end;writeln('Введите К: ');read(k);for i:=1 to 4 do begin sum:=sum+A[i,k]; proizv:=proizv*A[i,k]; end;writeln('Cумма чисел ',k,'-ого столбца: ',sum);writeln('Произведение чисел ',k,'-ого столбца: ',proizv);  end.