Найти суммы каждого столбца матрицы (n = 4 ; m = 6) и определить минимальную среди полученных сумм. Поменять местами 1 и 4-ю строки матрицы- Pascal(Паскаль)

uses  crt;
const n=4;
      m=6;
var a:array [1..n,1..m] of integer;
    i,j,sum,min,x:integer;
begin
clrscr;
writeln('ishodnay matrica:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(15)-4;
    write(a[i,j]:4)
   end;
  writeln
 end;
min:=maxint;
for j:=1 to m do
 begin
  sum:=0;
  for i:=1 to n do
  inc(sum,a[i,j]);
  textcolor(Red);
  writeln('summa ',j,' stolba: ',sum);
  if sum<min then min:=sum;
 end;
writeln('Min. summa=',min);
for i:=1 to n do
 begin
  x:=a[1,i];
  a[1,i]:=a[4,i];
  a[4,i]:=x;
 end;
writeln('Obmen strok 1 i 4:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
readkey
end.