somar duas colunas de uma matriz

Como que eu pode fazer neste codigo pra fazer soma a 2° coluna com a 3° coluna desta matriz (3x3)

program exercicio3;

uses wincrt;

const n=3;

var

 i,j:integer;

 M:array[1..n,1..n]of integer;

 prodiag,prodlinha,somacol:integer;

begin

 prodiag:=1;

 prodlinha:=1;

 somacol:=0;

 for i:=1 to n do

 begin

 for j:=1 to n do

 begin

	write('Elemento da linha ',i,' coluna ',j,' : ');

 readln(M[i,j]);

 end;

 end;

 for i:=1 to n do

 begin

 for j:=1 to n do

 begin

 if i=3

 then prodlinha:= prodlinha * M[i,j];

 end;

 end;

 writeln('O valor do produto dos elementos da 3° linha é: ',prodlinha);

 for i:=1 to n do

 begin

 for j:=1 to n do

 begin

 if i=j

 then prodiag:=prodiag * M[i,j];

 end;

 end;

 writeln('O valor do produto dos elementos da diagonal é: ',prodiag);

 

 for i:=1 to n do

 begin

 for j:=1 to n do

 begin

 somacol:= M[i,2]+ M[i,3]

 end;

 end;

 writeln('A soma dos elementos da 2° coluna com os elementos da 3°coluna é: ',somacol)

 end.

Onde esta o erro, pois do jeito que esta so esta somando os elementos da 2° e 3° coluna da 3° linha

se puderem me ajudar desde ja agradeço