Работа с матрицей. Pascal

[Юся]

Дана вещественная матрица размером 4х6 (ее элементы нужно ввести с клавиатуры).
Упорядочить ее столбцы по убыванию суммы их элементов.
Вывести вектор сумм элементов строк, первоначальную и полученную матрицу на экран.
Вывести элементы матрицы, которые встречаются в матрице более трех раз (считается, что хотя бы один такой элемент имеется).

program L22;
uses crt;
var s,c,i,j:integer;
    A:array [1..4,1..6] of integer;
    B:array [1..6] of integer;
begin
Clrscr;
S:=0;
  for i:=1 to 4 do                       {vvod vivod}
  for j:=1 to 6 do
  readln (a[i,j]);
   for i:=1 to 4 do begin
   for j:=1 to 6 do
   write(a[i,j]:3);
   writeln;
   end;
   writeln;

  writeln;
  for j:=1 to 6 do begin  {summa elementov}
  for i:=1 to 4 do
  b[j]:=b[j]+a[i,j];
  {write('b[j]:=',b[j]);}
  writeln;
  end;
  writeln;

  {writeln('uporyad stolbci po ubivaniyu summi ih elementov');
    for i:=1 to 4 do
    for j:=1 to 6 do
     if  b[j]<b[j+1] then begin
      b[j+1]:=a[i,j];
      a[i,j]:=b[j];
      end;
    for i:=1 to 4 do begin
    for j:=1 to 6 do begin
   write(a[i,j]:3);

    end;
    writeln;
    end;  }
  writeln('vektor summ');
   for j:=1 to 6 do
   write(b[j]:3);
   writeln;

  readln;
  end.

[ACE Valery]

И что конкретно не получается?
А еще раз назовете так тему, она полетит в тартарары

[Mad_Cat]

(*Упорядочить столбцы по убыванию сумм элементов*)
     (*Вывести суммы элементов каждой строки*)
uses crt;
const n=4;m=6;
var mat:array[1..n+1,1..m+1] of integer;
    i,j:integer;
    f:boolean;
    buf:integer;
    k:integer;
begin
clrscr;
  for i := 1 to n do
    for j := 1 to m do begin
      write('[',i,',',j,']=');
      readln(mat[i,j]);
      mat[i,m+1]:=mat[i,m+1]+mat[i,j];
      mat[n+1,j]:=mat[n+1,j]+mat[i,j];
    end;
clrscr;
  writeln('===================================');
  writeln('          Old Matrix              |');
  writeln('===================================');
  for i := 1 to n do begin
    for j := 1 to m do
      write (mat[i,j]:4);
      writeln;
  end;
  writeln('===================================');
  writeln('          Sum Row                 |');
  writeln('===================================');
  for i := 1 to n do begin
    write( mat[i,m+1]:4);
  end;
  writeln;
  repeat
    f:=false;
    k:=m;
    for i:=1 to k-1 do
      if mat[n+1,i]<mat[n+1,i+1] then begin
        for j := 1 to n+1 do begin
          buf:=mat[j,i];
          mat[j,i]:=mat[j,i+1];
          mat[j,i+1]:=buf;
        end;
        f:=true;
      end;
    k:=k-1;
  until not f;
  writeln('===================================');
  writeln('        Sorted Matrix             |');
  writeln('===================================');
  for i := 1 to n do begin
    for j := 1 to m do
      write (mat[i,j]:4);
      writeln;
    end;
  readln;
end.