Работа с двумерными массивами (сортировки и перестановки в массиве)

var f:text;
    a:array[0..19,0..19] of char;
    c:char;
    m,n,i,j,k,nmin:integer;
begin
repeat
writeln('Введите размеры матрицы m,n от 2 до 20');
readln(m,n);
until(m in [2..20])and(n in [2..20]);
//берем любой текстовый файл в котором не меньше 400 символов
//исключая пропуски и символы конца строки
assign(f,'input.txt');
reset(f);
//но проверим его на всякий случай
k:=0;
while not eof(f) do
 begin
  read(f,c);
  if not(c in [#10,#13,#26,#32,#9]) then  inc(k);
 end;
close(f);
if k<m*n then
 begin
  writeln('k=',k);
  writeln('В файле недостаточно символов, добавьте');
  exit;
 end;
reset(f);
k:=-1;
//читаем символы пока не наберем матрицу
while k<m*n-1 do
 begin
  read(f,c);
  //пропускаем концы строк и всякие пробелы
  if not(c in [#10,#13,#26,#32,#9]) then
   begin
    inc(k);
    a[k div n,k mod n]:=c;//остальные пишем в матрицу
   end;
 end;
close(f);
writeln('Исходная матрица');
for i:=0 to m-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:2);
  writeln;
 end;
for j:=0 to n-1 do
for i:=0 to m-2 do
 begin
  nmin:=i;
  for k:=i+1 to m-1 do
  if a[k,j]<a[nmin,j] then nmin:=k;
  c:=a[i,j];
  a[i,j]:=a[nmin,j];
  a[nmin,j]:=c;
 end;
writeln('Сортировка столбцов по возрастанию');
for i:=0 to m-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:2);
  writeln;
 end;
end.