Процедура сортировки Опции

[Orevin]

Нужно написать процедуру, которая упорядочивает по возрастанию (обменом) 1 строку в массиве 10х10. В самой программе с помощью этой процедуры упорядочить все строки.
По всякому пытался делать, но правильно работать никак не хочет. Помогите, пожалуйста, исправить ошибки.

[volvo]

Оля, смотри:

{значение k у тебя передается из программы, так что здесь изменять его не следует, воспользуйся лучше переменной i}

Во-первых, даже если ты его и изменишь, ничего страшного не будет - изменения не передаются в вызывающую программу, а вообще если ты не хочешь чтобы пользователь что-то менял -

PROCEDURE poryadok(CONST k: integer; var a1: arr1); { <--- Пускай попробует теперь изменить }

Но и это не главное... Главное - то, что процедура может быть проще:

TYPE
  vector = array[1 .. 10] of integer;
  arr1 = array[1 .. 10] of vector;
...
PROCEDURE poryadok(var a1: vector);
var T, j, i: integer;
begin
  for i:=2 to 10 do
    for j:=10 downto i do
      if a1[j-1] > a1[j] then begin            {сортировка у меня выглядит чуть-чуть по-другому}
           T:=a1[j-1]; a1[j-1]:=a1[j]; a1[j]:=T;
      end;
end;

{ и вызов: }
...
for k:=1 to 10 do
  poryadok(A[k]);
...