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

program f1;
var a:array[1..100,1..100] of longint; m,n,i,j,Y,k,k1,Y1,YY:longint; s,SM,max:longint; s1:string;
begin
writeln('n,m');
readln(n,m);
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
end;
for i:=1 to m do
begin
for j:=1 to n do
begin
S:=a[j,i]+S;
end;
if SM<S then
begin
Y:=i;
SM:=S;
end;
S:=0;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
str(a[i,j],s1);
for k:=1 to length(s1) do
begin
if s1[k]='1' then k1:=k1+1;
end;
if (k1=length(s1)) and (a[i,j]>max) then begin max:=a[i,j]; Y1:=j; end;
k1:=0;
end;
end;
writeln;
writeln('Введенная матрица');
for k:=1 to m do
write('-------');
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:6,'|');
end;
writeln;
for k:=1 to m do
write('-------');
writeln;
end;
for i:=1 to n do
begin
YY:=a[i,y];
a[i,y]:=a[i,Y1];
a[i,Y1]:=YY;
end;
writeln;
writeln('Отформатированная матрица');
for k:=1 to m do
write('-------');
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:6,'|');
end;
writeln;
for k:=1 to m do
write('-------');
writeln;
end;
end.