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

[Orevin]

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

[Айра]

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

BEGIN
  assign(Fout,'res2.txt');
  rewrite(Fout);
  assign(Fin,'dat2.txt');
  reset(Fin);
  for i:=1 to 10 do
    for j:=1 to 10 do
      begin
        read(Fin,A[i,j]);
      end;
  close(Fin);
  for k:=1 to 10 do
    begin
      poryadok(k, A);
    end;
  for i:=1 to 10 do
    begin
      for j:=1 to 10 do
        begin
           write(Fout,A[i,j]);
        end;
      writeln(Fout);
    end;
 close(Fout);
END.

Вроде все работает правильно..

Сообщение отредактировано: Айра - 23.05.2007 18:25