Программа по упорядочению элементов в массиве.

[Павел Шилин]

Составьте программу упорядочения элементов по возрастанию в третьей строке матрицы A(N;N). Заранее спасибо.

[Петррр]

program prog1;
uses
    crt;
const
     size = 5;
var
   a: array[1..size, 1..size] of integer;
   i, j: integer;
   procedure swap(var a, b: integer);
   var
      buf: integer;
   begin
        buf := a;
        a := b;
        b := buf;
   end;
begin
     randomize;
     clrscr;
     for i := 1 to size do
     begin
          for j := 1 to size do
          begin
               a[i, j] := random(20);
               write(a[i, j] : 4);
          end;
          writeln;
     end;
     writeln('Sort');
     for i := 1 to size - 1 do
         for j := i + 1 to size do
             if (a[3, i] > a[3, j]) then
                swap(a[3, i], a[3, j]);
     for i := 1 to size do
     begin
          for j := 1 to size do
              write(a[i, j] : 4);
          writeln;
     end;
     readkey;
end.