Сортировки

[SVing]

Ребят , нужна ваша в задачке помощь.
Зарание спасибо


Дана действительная матрица A размерности . Если элементы второй строки матрицы образуют невозрастающую последовательность, и наибольший элемент матрицы находится в этой строке, то упорядочить элементы каждого столбца матрицы по возраста-нию методом просеивания. В противном случае матрицу оставить без изменения.

[SVing]

выручайте пожалуйсто

[BDA]

uses CRT;

const
	T1=100;
	T2=100;

var
  a:array[1..T1,1..T2] of real;
  n,m,i,j,q,pos:integer;
  t:boolean;
  max,tmp:real;
  
label printer;

begin
  writeln('Input n*m:');
  readln(n,m);
  max:=-1000000;
  t:=false;
  for i:=1 to n do
	for j:=1 to m do
	begin
		write('a[',i,',',j,']: ');
		readln(a[i,j]);
		if a[i,j]>max then
		begin
			max:=a[i,j];
			pos:=i;
		end;
	end;
  if pos<>2 then
	goto printer;
  i:=1;
  while (i<m)and not t do
  begin
	if a[2,i]<a[2,i+1] then
		t:=true;
	inc(i);
  end;
  if t then
	goto printer;	
  for i:=1 to m do
	for j:=1 to n-1 do
		for q:=j+1 to n do
			if a[j,i]>a[q,i] then
			begin
				tmp:=a[j,i];
				a[j,i]:=a[q,i];
				a[q,i]:=tmp;		
			end;
  printer:
  for i:=1 to n do
  begin
	for j:=1 to m do
		write(a[i,j]:5:2,' ');
	writeln;
  end; 
  readln;
end.

[SVing]

спасибо большое!сейчас гляну