Составить программу, которая в двумерной В, состоящей из m строк и n столбцов, подсчитывает суммы столбцов и столбец с наименьшей суммой элементов обнуляет- Pascal(Паскаль)

uses crt;
const n=5;
      m=5;
var arr:array[1..m,1..n] of integer; sum:array[1..m]  of integer;
    i,j,min_i:integer;
begin
clrscr;
randomize;
for i:=1 to m do
begin
 for j:=1 to n do
 begin
  arr[i,j]:=random(100);
  write(arr[i,j]:3);
 end;
 writeln;
end;
 
for j:=1 to n do
begin
 for i:=1 to m do
  sum[j]:=sum[j]+arr[i,j];
 writeln(sum[j]);
end;
 
min_i:=1;
for j:=2 to n do
 if (sum[min_i]>sum[j]) then min_i:=j;
 
for i:=1 to m do
 arr[i,min_i]:=0;
 
writeln;
for i:=1 to m do
begin
 for j:=1 to n do
 begin
  write(arr[i,j]:3);
 end;
 writeln;
end;
 
end.