Заданную строку символьной матрицы упорядочить по убыванию методом выбора

const
  nmax = 15;
 
var
  a: array[1..nmax, 1..nmax] of char;
  st, m, n, i, j, k, x: integer;
  buf: char;
  f: text;
 
begin
  assign(f, 'data.txt');
  rewrite(f);
  repeat
    write('Количество строк до ', nmax, ' m=');
    readln(m);
  until m in [1..nmax];
  repeat
    write('Количество столбцов до ', nmax, ' n=');
    readln(n);
  until n in [1..nmax];
  writeln(f, m);
  writeln(f, n);
  writeln('Исходная матрица:');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := chr(random(90 - 65 + 1) + 65);
      write(a[i, j]:4);
      write(f, a[i, j]);
    end;
    writeln;
  end;
  close(f);
  
  reset(f);
  readln(f, m);
  readln(f, n);
  for i := 1 to m do
    for j := 1 to n do
      read(f, a[i, j]);
  close(f);
  write('Введите номер строки: ');
  readln(st);
  i := st;
  for k := 1 to n - 1 do
  begin
    x := k;
    for j := k + 1 to n do
      if a[i, j] > a[i, x] then x := j;
    buf := a[i, k];
    a[i, k] := a[i, x];
    a[i, x] := buf;
  end;
  
  writeln('Сортировка строк');
  for i := 1 to m do
  begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;
end.