Cортировать последовательность методом пузырька. - Pascal

Формулировка задачи:

Имеется случайная! последовательность чисел. Напишите программу, которая сортирует данную последовательность методом пузырька. Примеры входных и выходных данных: Входные данные из input.txt 123 412 5112 12 251 Выходные данные(можно на экран): 12 123 251 412 5112 Пожалуйста, ребят

Решение задачи: «Cортировать последовательность методом пузырька.»

Листинг программы

  while not SeekEoF(f) and (n<m) do begin
    Inc(n); Read(f,a[n]);
  end;

Объяснение кода листинга программы

Создается цикл while, который будет выполняться до тех пор, пока не будет достигнут конец файла f и пока значение переменной n меньше значения переменной m.
Внутри цикла каждый шаг цикла происходит увеличение значения переменной n на 1 с помощью Inc(n), а затем происходит считывание значения из файла f и присваивание его переменной a[n] с помощью Read(f,a[n]).