program sort;
uses crt;
const
   SIZE = 7;
var
   a: array[1..SIZE] of char;
   min: integer; { номер минимального элемента в части
                   массива от i до верхней границы массива }
   j: integer; { номер элемента, сравниваемого с минимальным }
   buf: char; { буфер, используемый при обмене элементов массива }
   i, k: integer;

begin
   clrscr;
   { ввод массива}
   for i := 1 to SIZE do begin
     write('El-t #', i , ': ');
     readLn (a[i]);  {заполняем массив}
   end;

   for i := 1 to SIZE - 1 do
   begin
     { поиск минимального элемента в части массива от а[1] до a[SIZE]}
     min := i;
     for j := i + 1 to SIZE do
       if a[j] < a[min] then min := j;

     { поменяем местами a [min] и a[i] }
     buf := a[i];
     a[i] := a[min];
     a[min] := buf;

     { вывод массива }
     for k := 1 to SIZE do
       write(a[k], '; ');
  writeln;
   end;
   writeln('Otsortirovan!!!');
   readkey;
end.