Напишите программу которая выводит на экран столбец матрицы, сумма значений элементов которая наименьшая

const nx=30; mx=30;var r:array[1..nx,1..mx] of integer;b:array[1..mx] of integer;i,j,n,m,k,sum,min:integer; beginmin:=40;randomize;write('Введите n,m: ');readln(n,m);writeln('Исходная матрица: ');for j:=1 to m do beginfor i:=1 to n do beginr[i,j]:=random(20)-10;sum:= sum + r[i,j];end;b[j]:=sum;sum:=0;end;for i:=1 to n do beginfor j:=1 to m do beginwrite(r[i,j]:4);end;writeln;end;writeln;for j:=1 to m do beginwrite(b[j]:4);if min > b[j] then beginmin:= b[j]; k:= j;end;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to m do beginif j=k then write(r[i,j]:4);end;writeln;end;end.