program sort;
uses crt;
const n = 5;    {константа - размерность массива}
   var i, j, k: integer;    {переменные}
       r: char;  {символьная переменная}
       a: array[1..n] of char;    {массив символов}
begin
   clrscr;    {очистка экрана}
{ввод массива}
   for i:=1 to n do {в цикле по эл-там массива}
   begin
     write('El-t nomer ', i,': ');
     readln(a[i]);    {чтение с клавиатуры значения в эл-т массива}
   end;

{упорядочение элементов массива}
   k := 0;
   for i:=1 to n-1 do    {цикл от первого до предпоследнего эл-та массива}
     for j:=i+1 to n do  {цикл от i+1 ого эл-та до последнего}
       if a[i]>a[j] then   {если i-тый эл-т больше чем j-тый, то }
       begin
         k := k + 1;  {меняем их местами и увеличиваем на 1 счетчик замен}
         r := a[i];
         a[i] := a[j];
         a[j] := r;
       end;
   writeln;
   writeln('Sorted massiv:');    {выводим отсортированный массив и кол-во перемещенных эл-ов}
   for i:=1 to n do
     write(a[i],'  ');
   writeln;
   write('kol-vo otsortirovannih el-tov = ', k);
   readkey;
end.