{****************************************************}
{********* Girilen Sayıları Lineer Sıralar **********}
{****************************************************}

Uses Crt;

Const
  n = 5;

Var
  Sayi    : Array [1..n] of Byte;
  i, j, k : Byte;
  Gecici  : Byte;
  Hamle   : Byte;
  Adim    : Byte;
Begin
  Sayi[1] := 14;
  Sayi[2] := 105;
  Sayi[3] := 11;
  Sayi[4] := 4;
  Sayi[5] := 21;

  ClrScr;
  For k := 1 to n Do
    Write (Sayi[k]:3,' - ');
  WriteLn;
  For i := 1 To n - 1 Do
    For j := i + 1 To n Do
      Begin
        Hamle := Hamle + 1;
        if Sayi[i] > Sayi[j] Then
          Begin
            Adim := Adim + 1;
            Gecici  := Sayi[i];
            Sayi[i] := Sayi[j];
            Sayi[j] := Gecici;
            Hamle := Hamle + 1;
            For k := 1 to n Do
              Write (Sayi[k]:3,' - ');
            WriteLn;
          End;
      End;
      WriteLn;
      WriteLn ('Ad�m Say�s�  : ', Adim);
      WriteLn;
      WriteLn ('Hamle Say�s� : ', Hamle);
      Readkey;
End.