sort matrix

sort-matrix.pas

type
  mas = array [1..100, 1..100] of longint;

procedure vvod(
var
  k, kolstr, kolst: longint;


var
  matrix: mas);


var
  str, st: longint;


begin
  readln(kolstr, kolst);
  for str := 1 to kolstr do 
    for st := 1 to kolst do 
      read(matrix[str, st]);
  readln(k);
end;
procedure sortirovka(k, kolstr, kolst: longint;

var
  matrix: mas);


var
  el, str, st, str1: longint;


begin
  for str := 1 to kolstr do 
    begin
      for str1 := 1 to kolstr do 
        if matrix[str1, k] < matrix[str1 + 1,k] then
          begin
            for st := 1 to kolst do 
              begin
                el := matrix[str1, st];
                matrix[str1,st] :=matrix[str1+1,st];
                matrix[str1 + 1, st] := el;
              end;
          end ;
    end;
end; 
procedure vyvod(kolstr, kolst: longint;
matrix: mas); 

var
  str, st: longint;


begin
  for str := 1 to kolstr do 
    begin
      for st := 1 to kolst do 
        write(matrix[str, st], ' ');
      writeln();
    end;
end; 

var
  k, kolstr, kolst: longint;
  matrix: mas;


begin
  vvod(k, kolstr, kolst, matrix);
  sortirovka(k, kolstr, kolst, matrix);
  vyvod(kolstr, kolst, matrix);
end.