помогите найти ошибку в програме не работает в делфи

[SYL@R]

Задана матрица А(8,8). Упорядочить элементы в каждой строке в порядке возрастания их значений.

program Project1;

{$APPTYPE CONSOLE}
 var
 i,i2,j,buf:longint;
 a:array[1..8,1..8]of longint;
begin
writeln(a[i,j]);
 for i:=1 to 8 do
  for j:=1 to 8 do   
   read(a[i,j]);   
 for i:=1 to 8 do   
  begin   
   for i2:=1 to 7 do   
    for j:=1 to 7 do   
     if a[i,j]>a[i,j+1] then   
      begin   
       buf:=a[i,j];   
       a[i,j]:=a[i,j+1];   
       a[i,j+1]:=buf;   
      end;   
  end;   
 for i:=1 to 8 do   
  begin   
   for j:=1 to 8 do   
    write(a[i,j],' ');   
     readln;
end;
end.

[puporev]

Целый год проучились, а как писали ерунду, так и пишем.
Кроме собственно сортировки, все написано неверно.

var
 i,i2,j,buf:longint;
 a:array[1..8,1..8]of longint;
begin
randomize;
writeln('Ishodnaja matrica:');
for i:=1 to 8 do
  begin
    for j:=1 to 8 do
       begin
         a[i,j]:=random(20);
         write(a[i,j]:3);
       end;
    writeln;
  end;
for i:=1 to 8 do
for j:=1 to 7 do
for i2:=1 to 7 do
if a[i,i2]>a[i,i2+1] then
      begin
       buf:=a[i,i2];
       a[i,i2]:=a[i,i2+1];
       a[i,i2+1]:=buf;
      end;
writeln('Rezultat:');
for i:=1 to 8 do
  begin   
   for j:=1 to 8 do
   write(a[i,j]:3);
   writeln;
  end;
readln;
end.

[Crazy_Wolfy]

для уменьшения кода, вывод результата можно запихнуть уже во второй и первый цикл сортировки... другими словами как отсортировал элемент так и вывел. а так в остальном согласен. самый простой метод без заморочек для малых массивов.

[puporev]

Интересно как это, если сортировка идет в диапазоне 1-7, а вывод нужно сделать в диапазоне 1-8?

[Crazy_Wolfy]

не проблема.. последний элимент так же выводим через первый цикл после второго.. а 8.8 после выполнения цикла. я чаще использовал цикл с предусловием т.к. задачу себе расширял от ограниченности к массе.

можно и до авить условие на вывод последнего при достижении 7 шага... но это опять же утяжелит процесс постоянной проверкой но будет покрасивей.