Тема: Алгоритми сортування масивів

Текст програми сортування масиву методом вибору:

Program sort_vibir;
  Var a: array[1..5] of integer;
   i,j,r: integer;
Begin
For i:=1 to 5 do readln(a[i]);
 For i:=1 to 4 do
 For j:=i to 5 do
  If a[j]
     Begin
      r:= a[i];
      a[i]:=a[j];
      a[j]:=r;
     End;
For i:=1 to 5 do Writeln(a[i]:5);
End.

Текст програми сортування масиву методом обміну (бульбашки):

Program sort_obm;
  Var a: array[1..5] of integer;
   i,r: integer;
   f:boolean;
Begin
For i:=1 to 5 do readln(a[i]);

Repeat
f:=true;
For i:=1 to 4 do 
   If a[i]>a[i+1] then
     Begin
      r:= a[i];
      a[i]:=a[j];
      a[j]:=r;
      f:= false;
    End;
 Until f;
For i:=1 to 5 do Writeln(a[i]:5);
End.