ошибка в задаче с матрицей

[Валюшка]

Program Six1;
Uses Crt;
Var i,j,k,m,n:integer;
    vsp:real;
    a:array[1..100,1..100] of real;
Begin
clrscr;
repeat
write('m=');
readln(m);
until (i<=m) and (m<=100);
repeat
write('n=');
readln(n);
until (j<=n) and (n<=100);
for i:=1 to m do
for j:=1 to n do
begin
 write('a[',i:3,',',j:3,']=');
 readln(a[i,j]);
end;
writeln;
for i:=1 to m do
begin
 for j:=1 to n do
 write('a[i.j]=',a[i,j]:4:2);
 writeln;
end;
writeln;
for k:=1 to m-1 do
begin
 for i:=1 to m-1 do
 begin
  if a[i+i,1]<a[i,1] then
  begin
  for j:=1 to m-1 do
   begin
    vsp:=a[i,j];
    a[i,j]:=a[i+1,j];
    a[i+1,j]:=vsp;
   end;
  end;
 end;
end;
for i:=1 to m do
begin
 for j:=1 to n do
 write('a[i,j]=',a[i,j]:4:2);
 writeln;
end;
readln;
End.

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

[начинающий кодер]

вместо

write('a[i,j]=',a[i,j]:4:2);

вставь

write('a[',i,j,']=',a[i,j]:4:2);

и все выведется!

[puporev]

Вот нормальный код. Попробуйте сами разобрать свои ошибки.

Program Six1;
Uses Crt;
Var i,j,k,m,n:integer;
    vsp:real;
    a:array[1..100,1..100] of real;
Begin
clrscr;
repeat
write('Kolichestvo strok m=');
readln(m);
until (1<=m) and (m<=100);
repeat
write('Kolichestvo stolbcov n=');
readln(n);
until (1<=n) and (n<=100);
for i:=1 to m do
for j:=1 to n do
begin
 write('a[',i,',',j,']=');
 readln(a[i,j]);
end;
clrscr;
writeln('Ishodnaya matrica:');
for i:=1 to m do
  begin
    for j:=1 to n do
    write(a[i,j]:5:2);
    writeln;
  end;
writeln;
for k:=1 to m-1 do
for i:=k+1 to m do
if a[k,1]>a[i,1] then
for j:=1 to n do
  begin
    vsp:=a[k,j];
    a[k,j]:=a[i,j];
    a[i,j]:=vsp;
   end;
writeln('Rezultat:');
for i:=1 to m do
  begin
    for j:=1 to n do
    write(a[i,j]:5:2);
    writeln;
  end;
readln
End.