Не могу найти ошибку. Помогите, пожалуйста!

[Evgesha]

Составила программку, но не могу найти ошибку. Помогите, пожалуйста!!!

Задание: Представить столбцы двумерного массива в порядке возрастания их суммы

Вот программа:

program sortirovka stolbcov;
uses crt;
var
B,C:array[1..10,1..10] of integer;
i,j,m,z,n,sum,k,d:integer; E,T:array [1..10] of integer;
begin
randomize;
ClrScr;
Writeln('vvedite chislo strok'); readln(m);
Writeln('vvedite chislo stolbcov'); readln(n);

for i:=1 to m do begin
writeln;
for j:=1 to n do begin
b[i,j]:=-10+random(10-(-10));
write(b[i,j]:11);
end;end;

writeln; writeln('summa stolbcov');
for j:=1 to n do begin
for i:=1 to m do begin
sum:=sum+b[i,j];end;write(sum:11);T[j]:=sum; sum:=0; end;


for k:=1 to n do begin
if t[k]<t[k+1] then begin
for j:=1 to n-1 do begin
for i:=1 to m do begin
d:=b[i,j]; b[i,j]:=b[i,j+1]; b[i,j+1]:=d; d:=0;
end;end;end;end;

writeln;
for i:=1 to m do begin
writeln;
for j:=1 to n do begin
write(b[i,j]:11);
end;
end;
readln;
end.

[alex_fcsm]

uses crt;
const m=5;
      n=5;
var a:array [1..m,1..n] of integer;
    b,temp:array[1..n] of integer;
    i,j,k:integer;

begin
randomize;
clrscr;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
   writeln;
 end;
for j:=1 to n do
 begin
  b[j]:=0;
   for i:=1 to m do
    b[j]:=b[j]+a[i,j];
 end;
 
 for i:=2 to n do
  for j:=n downto i do
    if b[j]<b[j-1] then
   begin
     k:=b[j];
     b[j]:=b[j-1];
     b[j-1]:=k;
     for k:=1 to m do
      temp[k]:=a[k,j];
     for k:=1 to m do
      a[k,j]:=a[k,j-1];
     for k:=1 to m do
      a[k,j-1]:=temp[k];
   end;
writeln('==============================');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
writeln('==============================');
for i:=1 to n do
 write(b[i],' ');
end.

[Evgesha]

Спасибо огромное! Очень благодарна.

[Evgesha]

Помогите, пожалуйста, понять условие задачи!
Найти сумму и произведение первых N чисел 6 ряда
y=1+x^2/1-x^1/2+x^4/3-x^3/4+x^6/5-x^5/6+...
вывести на экран значения элементов по 10, сумму и произведение.