Не получается сортировка методом пузырька

[dvpvitas]

1.Описать массив записей, содержащий следующие поля:
 номер планеты по удалению от Солнца;
 название планеты;
 диаметр;
сортировка по диаметру методом пузырька.

uses crt;
type mas=record
nazv:string[30];
     nom,dim:integer;
     end;
     mass=array [1..20] of mas;
var a:mass;
    i,n,j:integer;
procedure puz(a:mass;n:integer);
var flag:boolean;
    tmp:mas;
 begin
                   for i:=1 to n do begin
                   flag:=false;
                   for j:=1 to i do
                   if A[j].dim>a[j+1].dim then
                   begin
                   tmp:=a[j];
                   a[j]:=a[j+1];
                   A[j+1]:=tmp;
                   flag:=true;
                   end;
                   if flag=false then
                   break;
                   end;
                   end;
procedure vivod(a:mass;n:integer);
begin
for i:=1 to n do
writeln(a[i].dim);
end;
begin
clrscr;
writeln('Заполните данные о планетах');
write('Введите кол-во планет: ');
read(n);
for i:=1 to n do
begin
writeln(i,'-я планета');
write('-номер планеты:');
readln(a[i].nom);
write('-название планеты:');
readln(a[i].nazv);
write('-диаметр:');
readln(a[i].dim);
end;
writeln;
puz(a,n);
vivod(a,n);
readln;
end.

Сортировка методом пузырька не получается

[Аватар]

for i:=1 to n-1 do
  for j:=i+1 to n do
    if a[i].dim>a[j].dim then begin
      tmp:=a[i];
      a[i]:=a[j];
      a[j]:=tmp;
    end;

[dvpvitas]

uses crt;
type mas=record
nazv:string[30];
nom,dim:integer;
end;
mass=array [1..20] of mas;
var a:mass;
i,n,j:integer;
procedure puz(a:mass;n:integer);
var flag:boolean;
tmp:mas;
begin
for i:=1 to n-1 do
begin
flag:=false;
for j:=i+1 to n do
begin
if a[i].dim>a[j].dim then
begin
tmp:=a[i];
a[i]:=a[j];
A[j]:=tmp;
flag:=true;
end;
if flag=false then;
break;
end;
i:=i+1;
end;
end;
procedure vivod(a:mass;n:integer);
begin
for i:=1 to n do
writeln(a[i].dim);
end;
begin
clrscr;
writeln('Заполните данные о планетах');
write('Введите кол-во планет: ');
read(n);
for i:=1 to n do
begin
writeln(i,'-я планета');
write('-номер планеты:');
readln(a[i].nom);
write('-название планеты:');
readln(a[i].nazv);
write('-диаметр:');
readln(a[i].dim);
end;
writeln;
puz(a,n);
vivod(a,n);
readln;
end.
не работает

[dvpvitas]

uses crt;
type mas=record
nazv:string[30];
nom,dim:integer;
end;
mass=array [1..20] of mas;
var a:mass;
i,n,j:integer;
procedure puz(a:mass;n:integer);
var flag:boolean;
tmp:mas;
begin
for i:=1 to n-1 do begin
flag:=false;
for j:=i+1 to n do
if A[i].dim>a[j].dim then
begin
tmp:=a[i];
a[i]:=a[j];
A[j]:=tmp;
flag:=true;
end;
if flag=false then
break;
end;
end;
procedure vivod(a:mass;n:integer);
begin
for i:=1 to n do
writeln(a[i].dim);
end;
begin
clrscr;
writeln('Заполните данные о планетах');
write('Введите кол-во планет: ');
read(n);
for i:=1 to n do
begin
writeln(i,'-я планета');
write('-номер планеты:');
readln(a[i].nom);
write('-название планеты:');
readln(a[i].nazv);
write('-диаметр:');
readln(a[i].dim);
end;
writeln;
puz(a,n);
vivod(a,n);
readln;
end.
не работает программа

[FPaul]

не работает программа

Потому, что ошибка

[dvpvitas]

я знаю что там ошибка нужно её исправить

[FPaul]

Это правильно. И ещё правильнее - ограничиться фразой "не работает программа".