Сортировка пузырьком (PascalABC)

[Mnsh]

Здравствуйте. Нужно переделать программу. В программе сортировка идет по алгоритму Хоара, а нужно сделать сортировку пузырьком. Сортировка по номеру устройства. Заранее спасибо.
Программа:

Program sortirovka;
uses crt;
Type RecordType=Record;
    SOOB:String[15];  { ТЕКСТ СООБЩЕНИЯ }
    OTP:string[4]; { № УСТ-ВА ОТПРАВИТЕЛЯ }
    vrema:String[6];
End;
Mass=Array [1..1000] of RecordType;
Var A:Mass;
  n,i:Integer;
 
procedure Sort(L,R:integer);      { ПРОЦЕДУРА СОРТИРОВКИ ПО ХОАРУ }
 var i,j:integer;
     X,botp,bvrema,bSOOB:string;
begin
clrscr;
 X:=A[(L+R) div 2].otp;   { ДЕЛИМ НА 2 ПОДМНОЖЕСТВА }
 i:=L; j:=R;
 while i<=j do    { ЕСЛИ 1-ОЕ ПОДМНОЖЕСТВО <= 2-ОГО, ТО }
  begin
   while A[i].otp<X do i:=i+1;      { СОРТИРУЕМ }
   while A[j].otp>X do j:=j-1;
     if i<=j then
       begin
         botp:=A[i].otp;
         bvrema:=A[i].vrema;
         bsoob:=A[i].soob;
         A[i].otp:=A[j].otp;
         A[i].vrema:=A[j].vrema;
         A[i].soob:=A[j].soob;
         A[j].otp:=botp;
         A[j].vrema:=bvrema;
         A[j].soob:=bsoob;
         i:=i+1;
         j:=j-1;
       end;
  end;
  if L<j then Sort(L,j);     { ПРОИСХОДИТ РЕКУРСИЯ }
  if i<R then Sort(i,R);
end;
 
Begin
Write(' Введите количество сообщений: ');       { ВВОДИМ ДАННЫЕ }
Readln(n);
For i:=1 to n do
begin
Writeln('  Сообщение № ' ,i,' : ');
Write(' - номер устройства отправителя (целое положительное 4-значное число): ');
Readln(A[i].OTP);
Write(' - текст сообщения : ');
Readln(A[i].SOOB);
Write(' - время получения (ЧЧ:ММ:СС) : ');
Readln(A[i].VREMA);
end;
Sort (1,n);         { ВЫЗЫВАЕМ СОРТИРОВКУ }
for i:=1 to n do
begin
writeln ('    Отсортировано по номеру устройства отправителя'); {упорядоченный массив}
writeln ('  Отправитель ',A[i].OTP,' написал сообщение : ',A[i].SOOB,'. Время получения : ',A[i].VREMA);
end;
End.

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

[Rin]

Книга "Pascal. Попов", на какой-то странице есть код алгоритма сортировки пузырьком.

[Alex11223]

оО, и зачем искать книгу для такого известного и простого алгоритма?
http://ru.wikibooks.org/wiki/Примеры...овки_пузырьком
http://ru.wikipedia.org/wiki/Сортировка_пузырьком