Сортировка

[0IceCube0]

дана квадратная матрица размером n*n, содержащие положительные числа. Определить сумму четных элементов в каждом столбце матрицы и упорядочить номера столбцов по убыванию значений найденных сумм с помощью обменной сортировки . Вывести упорядоченный список номеров столбцов и соответствующих им сумм.
не работает

uses crt;
Type Tmas = array [1..100,1..100] of integer;
itp = Longint;
Var
i,j,p,n,max: integer;
Sum: integer;
Procedure Vvoda (Var A: Tmas; Var n: integer);
Var
i,j :integer;
BEGIN
clrscr;
randomize;
Write ('Razmer Matrici = ');
ReadLn(n);
for i:=1 to n do
for j:=1 to n do
A[i,j]:=random(10);
for j:=1 to n do
end;
Procedure Vyvoda (Var A: Tmas; Var n: integer);
Var
i,j :integer;
Begin
WriteLn ('Isxodnaa` matrica');
A[i,j]:= random(10);
for i:=1 to n do
Begin
for j:=1 to n do
Write(A[i,j]:5);
WriteLn;
end;
end;
Procedure  Summa(Var A: Tmas; var Sum: integer) ;
Var
i,j :integer;
Begin
for j:=1 to n do
begin
Sum:=0;
for i:=1 to n do
if A[i,j] mod 2=0 then Sum:=Sum+A[i,j];
WriteLn('Сумма в столбце ',j,'=',Sum);
end;
end;
Procedure Sortirivki( var A : Tmas );
var
i, j : Integer;
x : itp;
begin
for i := n downto 2 do
for j := 2 to i do
if A[i,j] < A[i,j - 1] then
begin
x := A[i,j];
A[i,j] := A[i,j - 1];
A[i,j - 1] := x;
end;
end;
Var
A: tmas;
Begin
Vvoda (A,n);
Vyvoda (A,n);
Writelen;
Summa(A,Sum);
Writeln;
Writeln('Rezultat sortirivki');
Sortirivki(A);
end.

[Stilet]

Procedure Vyvoda (Var A: Tmas; Var n: integer);
Var
i,j :integer;
Begin
WriteLn ('Isxodnaa` matrica');
A[i,j]:= random(10);

Это что за звон в подтяжках? Убирай эту строку.