Сортировка массива(выбором)

[Nrgstif]

Помогите пожалуйста.
Задание:
Разработать программу внутренней сортировки значений в таблице.(cсортировка выбором)
В 1 мерном и 2х мерном массиве.
В одномерном я сделал, вот код :

program mas;
var
a:array[1..10] of INTEGER;
i,j,min,n,t:INTEGER;
begin
RANDOMIZE;
FOR i:= 1 TO 10 DO
begin
a[i]:=RANDOM(9);
writeln('a(',i,')=',a[i],' ')
END;
begin
FOR i:= 1 TO 10 DO
begin
min := i;
FOR j:= i+1 TO 10 DO
IF a[j] < a[min] THEN
min:=j;
t:=a[min];
a[min]:=a[i];
a[i]:=t;
writeln('a(',i,')=',a[i],' ')
END;end;
readln
END.

А в двухмерном никак не получается, помогите пожалуйста.

[whatever]

Если речь идет о сортировки СТРОК в двумерном массиве, то можно вот так:

 var
   a:array[1..10,1..10] of INTEGER;
   i,j,min,n,t:INTEGER;
 begin
  RANDOMIZE;
   FOR i:= 1 TO 10 DO
   begin
      for j:= 1 to 10 do
        begin
           a[i,j]:=RANDOM(9);
           //write('a(',i,',',j,')=',a[i,j],' ');    //закоментировал эти строчки, так как в таком варианте выводится не очень красиво
           write(a[i,j],' ');       //если что, убери две косые пред предыдущей строчкой и поставь перед этой. То же самое ниже
         END;
       writeln
   end;

   writeln;

   for n:=1 to 10 do
   begin
     FOR i:= 1 TO 10 DO
       begin
         min := i;
         FOR j:= i+1 TO 10 DO
           IF a[n,j] < a[n,min] THEN
             min:=j;
         t:=a[n,min];
         a[n,min]:=a[n,i];
         a[n,i]:=t;
         //write('a(',n,',',i,')=',a[n,i],' ');
         write(a[n,i],' ');
       END;
     writeln
   end;
   readln
 END.

Сортировка столбцов по образу и подобию, буквально несколько строчек поменять.

[Nrgstif]

Огромное тебе спасибо, очень помог!