Напечатать элементы массива в прямом и обратном порядке - Pascal ABC

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

Задача: Сформировать одномерный массив из N элементов, где элементы массива- целые случайные числа в пределах от 1 до 45. Напечатать элементы массива в прямом и обратном порядке.

Решение задачи: «Напечатать элементы массива в прямом и обратном порядке»

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

const n=30;
var a:array [1..n] of integer;
i,g,a:integer;
BEGIN
For i:=1 to n do
a[i]:=Random(45)+1;
For i:=1 to n do
  For j:=1 to n-i do
  IF a[j]>a[j+1] THEN begin
                           a:=a[j];
                           a[j]:=a[j+1];
                           a[j+1]:=a;
                           end;
For i:=1 to n do Write (a[i], ' ');
Writeln;
For i:=n downto 1 do Write (a[i], ' ');
END.

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

В данном коде объявлены следующие переменные:

n - количество элементов в массиве (в данном случае 30);
a - массив целых чисел;
i - индекс текущего элемента массива;
g - значение текущего элемента массива;
a - значение предыдущего элемента массива;
BEGIN - начало блока кода;
FOR - цикл, который заполняет массив случайными числами от 1 до 45;
NEXT - переход к следующему значению переменной i;
FOR - еще один цикл, который проверяет, что текущий элемент больше следующего, и если это так, меняет их местами;
NEXT - переход к следующему значению переменной i;
FOR - еще один цикл, который выводит элементы массива в прямом порядке;
NEXT - переход к следующему значению переменной i;
WRITELN - выводит строку на экран;
END. - конец блока кода.