Считать массив из файла, отсортировать и записать в файл - Pascal ABC

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

Здравствуйте, нужна программа которая читает массив из файла, затем сортирует его и выводит в файл. Пример массива: Муфта 98 69 58 Гвоздь 68 75 49 Болт 23 56 89 Шайба 11 29 68 Гайка 20 60 59 Прокладка 10 20 30 Винт 29 67 58 Сортировка производится по 1 столбцу, тоесть в алфавитном порядке

Решение задачи: «Считать массив из файла, отсортировать и записать в файл»

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

for i:=1 to n-1 do
for j:=i+1 to n do
if d[i].naz>d[j].naz then
 begin
  x:=d[i];
  d[i]:=d[j];
  d[j]:=x;
 end;

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

1. n - количество элементов в массиве
2. d - массив структур (struct)
3. i, j - индексы элементов массива
4. naz - поле структуры, содержащее данные
5. x - временная переменная для хранения значения
6. d[i] - элемент массива с индексом i
7. d[j] - элемент массива с индексом j
8. x := d[i] — присваиваем значение элемента массива x
9. d[i] := d[j] — присваиваем значение элемента массива i значению элемента массива j
10. d[j] := x — присваиваем значение элемента массива j значению временной переменной x
11. end; — закрытие блока if
12. for i:=1 to n-1 do — внешний цикл, перебирает элементы массива от 1 до n-1
13. for j:=i+1 to n do — внутренний цикл, перебирает элементы массива от i+1 до n
14. if d[i].naz > d[j].naz then — условие сравнения полей структур
15. begin
16. x := d[i];
17. d[i] := d[j];
18. d[j] := x;
19. end; — блок if
20. end; — закрытие внешнего цикла