Не могу доделать вторую часть программы,сортировка

[Alina111]

Создать массив записей, содержащих информацию об автомобилях(гос.номер, марка,категория, объем двигателя).Отсортировать массив по номеру.
Массив создала,нужна сортировка.

Program lab;
Type
avtomobil = Record
gosnomer : integer;
marka: String;
kat: char;
obdv:integer;
End;
Var Baza:array[1..30] of avtomobil;
n,i,j,f:integer;
Procedure Form(Var  baza:array [1..30] of avtomobil);
Begin
 Writeln('Введите колличество машин <=30');
 Readln(n);
 For i:=1 to n do
 With baza[i] do
 Begin
 Writeln('Введите государственный номер ',i,'-ого автомобиля');
 Readln(gosnomer);
 Writeln('Введите марку  ',i,'-ого автомобиля');
 Readln(marka);
 Writeln('Введите категорию ',i,'-ого автомобиля');
 Readln(kat);
 Writeln('Введите объем двигателя ',i,'-ого автомобиля');
 Readln(obdv);
 End;
  Writeln;
 Writeln('Информация об автомобилях');
 end;
 
 Procedure vivod(Var  baza:array [1..30] of avtomobil);
 begin
 For i:=1 to n do
 Write('*');
 Writeln;
 Writeln('*Государственный номер* Марка * Категория * Объем двигателя *');
 For i:=1 to n do
 Write('*');
 Writeln;
 For i:=1 to n do
 With baza[i] do
 begin
 Writeln (gosnomer:21, marka:7, kat:11, obdv:17);
 end;
 end;
 
 
 Begin
 Form(baza);
 vivod(baza);
 End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Son Of Pain]

А в чем конкретно проблема? )

[Alina111]

Не получается,не сильна я в этом..)
Не поможете?

[Mad_Cat]

flag:=1; // flag:byte;buf:avtomobil;
while flag=1 do begin
flag:=0;
 For i:=1 to n-1 do 
 if baza[i].gosnomer>baza[i+1].gosnomer then begin
 buf:=baza[i]
 baza[i]:=baza[i+1];
baza[i+1]:=buf;
flag:=1;
end;
end;