pascal пузырьковый метод

[world12_tk]

Добрый день уважаемые форумчанины. Не могу исправить ошибку в программе.
Необходимо Упорядочить матрицу построчно по возрастанию.
вот исходный текст:

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a:array [1..10,1..10] of integer;
  i,j:integer;
  temp:integer;
  n,m:integer;
begin

  writeln('razmernost');
  readln(n,m);
  writeln('massiv');
  for I := 1 to n  do
    for j := 1 to m do

    read(a[i,j]);
  j:=2;

  while(j<=m)  do
  for I := 1 to n do

  begin
  if (a[i,j]<a[i,j-1]) and (j>1) then
  begin
    temp:=a[i,j];
    a[i,j]:=a[i,j-1];
    a[i,j-1]:=temp;
    j:=j-1;
  end
  else
    j:=j+1;
  end;
  for I := 1 to n  do
  for j := 1 to m do
    
    write(a[i,j]);

  readln;
end.

Заранее спасибо...

[Sazary]

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a:array [1..10,1..10] of integer;
  i,j,k:integer;
  temp:integer;
  n,m:integer;
begin

  writeln('razmernost');
  readln(n,m);
  writeln('massiv');
  for I := 1 to n  do
    for j := 1 to m do
      readln(a[i,j]);


  for I := 1 to n do
   for j:=m-1 downto 1 do
    for k:=1 to j do
     if a[i,k]>a[i,k+1] then
      begin
      temp := a[i,k];
      a[i,k] := a[i,k+1];
      a[i,k+1] := temp;
      end;

  for I := 1 to n  do
   begin
   for j := 1 to m do
    write(a[i,j]);
   writeln;
   end;

  readln;
end.

[world12_tk]

Уважаемый Sazary! А нельзя ли использовать while, а то препод говорит, что с помощью for этот метод не эффективный. Он очень долгий

[Sazary]

Алгоритм описан тут: http://ru.wikipedia.org/wiki/Сортиро...зырьком#Pascal

а то препод говорит, что с помощью for этот метод не эффективный.

Это чем же, интересно, while эффективнее?
Цикл

for i:=1 to N do
 begin
 .......  
 end;

можно представить через while как

i:=1;
while i<=N do
 begin
 ........
 inc(i);
 end;

Вот только на эффективность это не повлияет.
Или, может, вы что-то другое имеете в виду?

[world12_tk]

Sazary! Она имело ввиду, что если писать через for то пузырьковый метод будет очень медлительный, т.к. при одномерном массиве используется двойной цикл, а если использовать while то мы его пишем один раз... Но все равно спасибо... Вы мне очень помогли