Сформировать файл заданной структуры - Pascal

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

Процедура формирует файл следующей структуры X; X1, где X-номер значения в массиве А, X1-значение в массиве А. В файл записывается значение массива больше заданного X. Например A: 1 10 2 -2 3 5 4 4 5 3 при X=3 в файл запишется 1 10 3 5 4 4

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

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

  for j:=1 to n do if a[j]>x then WriteLn(f,j,' ',a[j]);

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

Задана переменная n типа Integer
Задана переменная x типа Integer
Задана переменная a типа Array
Выполняется цикл for от 1 до n
В каждой итерации цикла проверяется условие a[j]>x
Если условие выполняется, то выполняется оператор WriteLn(f,j,' ',a[j])
Результатом работы оператора является запись в файл f номера элемента массива a[j], пробела и значения переменной x
Оператор WriteLn(f,j,' ',a[j]) выполняется для каждого элемента массива a, удовлетворяющего условию a[j]>x
Цикл завершается, когда все элементы массива a, удовлетворяющие условию a[j]>x, были обработаны