программа сортировки матриц

Program   laba2;
   const
    m=6;
 
var n:array [1..m,1..m] of integer;
    ch:char;
    i,j,min,imin,prom,km,r:integer;
    f:text;
 
begin
    
    writeln('             Vybirite sposob vvoda elementov massiva ');
 
    writeln('                        (h - ruchkami)');
    writeln('                        (f - iz faila)');
    readln(ch);
    writeln(' ');
    case ch of
'h':  begin
       for i:= 1 to m do
        begin
         for j:= 1 to m do
          begin
           readln(n[i,j]);
          end;
         writeln;
        end;
      end;
'f':  begin
       assign(f,'d:\2_laba\input.txt');
       reset(f);
       for i:= 1 to m do
       begin
        for j:= 1 to m do
         begin
          read(f,n[i,j]);
          write(n[i,j],' ');
         end;
          writeln;
       end;
       close(f);
      end;
    end;
 
    writeln(' ');
    for j:= 1 to m do           {naxozhdenie minimuma}
     begin
      min:= n[1,j];
      for i:= 1 to m do
       if min > n[i,j] then min:= n[i,j];
          end;
    writeln(' ');
    writeln('         sortirovka elementov massiva');
 
    writeln('            u - po ubyvaniyu');
    writeln(' ');
    readln(ch);
    writeln(' ');
    if ch= 'u' then
   begin
     for j:= 1 to m do
      begin
       for km:= m downto 1 do
        begin
         min:=10000;
         for i:= 1 to km do
          begin
           if n[i,j]<min then
            begin
             min:= n[i,j];
             imin:= i;
            end;
          end;
         prom:= n[km,j];
         n[km,j]:=n[imin,j];
         n[imin,j]:= prom;
        end;
      end;
    for i:= 1 to m do
        begin
         for j:= 1 to m do
          begin
           write(n[i,j]);
           write(' ');
          end;
         writeln;
        end;
 
          end;
    readln;
    exit;
 
end.