Сортировка двумерного массива любым методом сортировки - Pascal ABC

[Mashunka]

Отсортировать в двумерном массиве случайных символов А[10,10] элементы каждого столбца по алфавиту любым методом сортировки(сортировка простым выбором,сортировка вставками,карманная сортировка). Вывести на экран исходный и отсортированный массив.

[Arigato]

Алгоритм:
1. Заполнить массив случайными символами.
2. Вывести на экран.
3. Отсортировать выбранным методом сортировки.
4. Вывести на экран.

[newerow1989]

var a:array[1..10,1..10] of char;
    i,j:integer;
    d:boolean;
    z:char;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         a[i,j]:=Char(65+Random(26));
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   Writeln;
   For j:=1 to 10 do
   Repeat
      d:=true;
      For i:=1 to 9 do
         If a[i,j]>a[i+1,j] then
         begin
            d:=false;
            z:=a[i+1,j];
            a[i+1,j]:=a[i,j];
            a[i,j]:=z;
         end;
   Until d;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
         Write(a[i,j],'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.