Найти два наименьших элемента из заданного набора чисел и вывести их в порядке возрастания.

var n, m1, m2, k, i: integer;
begin
  repeat //ввод количества чисел с проверкой диапазона
    write('Numbers count = ');
    readln(n);
    if n < 2 then writeln('Numbers count must be > 1, reenter.') //< 2, повторить ввод
  until n >= 2; //повторять до тех пор, пока n не будет >= 2
  m1 := 0; //эту строку можно удалить
  m2 := 0; //эту строку можно удалить
  writeln('Enter sequence of numbers:');
  for i := 1 to n do //цикл ввода и обработки последовательности
    begin
      write(i:3, ': '); //ввод числа
      readln(k);
      if i = 1 //если число первое,
        then m1 := k //то m1 равно числу
        else if i = 2 //иначе если число второе,
          then m2 := k //то m2 равно числу
            else if (k > m1) and (k < m2) //иначе если m1 < k < m2
              then m1 := k ////то m1 равно числу
              else if (k > m2) and (k < m1) //иначе если m2 < k < m1
                then m2 := k //то m2 равно числу
                else if (k > m1) and (k > m2) //иначе если m1 < k и m2 < k
                  then if m1 > m2 //то если m1 > m2
                    then m2 := k //то m2 равно числу
                    else m1 := k //иначе m1 равно числу
    end;
  write('Two max numbers in ascending order: '); //вывод результата
  if m2 > m1 //если m2 > m1
    then writeln(m1, ', ', m2) //то сначала вывести m1, затем m2
    else writeln(m2, ', ', m1); //иначе сначала вывести m2, затем m1
  readln
end.