Сортировки( метод просеивания)

[BDA]

uses
  CRT;

const
  T1 = 100;
  T2 = 100;

type
  arr = array[1..T1, 1..T2] of real;

var
  a: arr;
  n, m: integer;

function checkrow(var a: arr; m, row: integer): boolean;
var
  i: integer;
  t: boolean;
begin
  i := 1;
  t := true;
  while (i < m) and not t do
  begin
    if a[2, i] < a[2, i + 1] then
      t := false;
    inc(i);
  end;
  checkrow := t;
end;

function searchrowwithmax(var a: arr; n, m: integer): integer;
var
  i, j, posx, posy: integer;
begin
  posx := 1;
  posy := 1;
  for i := 1 to n do
    for j := 1 to m do
      if a[i, j] > a[posy, posx] then
      begin
        posx := j;
        posy := i;
      end;
  searchrowwithmax := posy;
end;

procedure inputarray(var a: arr; n, m: integer);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
    begin
      write('a[', i, ',', j, ']: ');
      readln(a[i, j]);
    end;
end;

procedure sortcolumns(var a: arr; n, m: integer);
var
  i, j, q: integer;
  tmp: real;
begin
  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;
end;


procedure outputarray(var a: arr; n, m: integer);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:5:2, ' ');
    writeln;
  end;
end;

begin
  writeln('Input n*m:');
  readln(n, m);
  inputarray(a, n, m);
  writeln;
  outputarray(a, n, m);
  writeln;
  if (searchrowwithmax(a, n, m) = 2) and checkrow(a, m, 2) then
    sortcolumns(a, n, m);    
  outputarray(a, n, m);
  readln;
end.

[SVing]

она выдаёт исходную матрицу?

[BDA]

Она выдает исходную матрицу, а через пустую строку получившуюся матрицу (если условия не выполняются, то 2 раза одну и ту же).
Если не нужно выдавать исходную, то уберите строчки writeln;outputarray(a, n, m); после inputarray(a, n, m);.

[SVing]

ок , понял . Спасибо большое!