В одномерном целочисленном массиве поменяйте местами первый нечетный и последний четный элементы. - Pascal

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

В одномерном целочисленном массиве поменяйте местами первый нечетный и последний четный элементы. Выведите исходный и изменённый массив, а также индексы элементов, которые менялись местами (исходный массив должен формироваться с помощью генератора случайных чисел).

Решение задачи: «В одномерном целочисленном массиве поменяйте местами первый нечетный и последний четный элементы.»

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

const n = 20;
var mas: array[1..n] of integer;
    i, f, l, t: integer;
begin
  randomize;
  f := 0;
  l := 0;
  writeln('Исходный массив:');
  for i := 1 to n do
    begin
      mas[i] := random(10) + 1;
      write(mas[i]:3);
      if (f = 0) and (mas[i] and 1 = 1)
        then f := i
        else if mas[i] and 1 = 0
          then l := i
    end;
  writeln;
  if f * l <> 0
    then begin
      writeln('Номер первого нечётного элемента: ', f);
      writeln('Номер последнего чётного элемента: ', l);
      t := mas[f];
      mas[f] := mas[l];
      mas[l] := t;
      writeln('Преобразованный массив:');
      for i := 1 to n do write(mas[i]:3);
      writeln
    end
    else if f = 0
      then writeln('Массив не содержит нечётных элементов')
      else writeln('Массив не содержит чётных элементов');
  readln
end.

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

Объявлены переменные: n, mas, i, f, l, t типа integer.
Переменная n инициализируется значением 20.
Переменная mas инициализируется одномерным массивом целых чисел размером 20.
Переменные f, l инициализируются нулевыми значениями.
Выводится сообщение Исходный массив: и производится цикл по элементам массива.
В каждой итерации цикла в элемент массива записывается случайное число от 1 до 10, затем это число выводится на экран.
Если текущий элемент массива нечётный и f равно 0, то f присваивается номер текущего элемента.
Если текущий элемент массива чётный и f не равно 0, то l присваивается номер текущего элемента.
Если f и l не равны 0, то это значит, что в массиве есть как нечётные, так и чётные элементы.
Выводится сообщение Номер первого нечётного элемента:, затем выводится номер первого нечётного элемента массива.
Выводится сообщение Номер последнего чётного элемента:, затем выводится номер последнего чётного элемента массива.
Значение первого нечётного элемента присваивается переменной t.
Значение первого нечётного элемента присваивается элементу массива с индексом f.
Значение последнего чётного элемента присваивается элементу массива с индексом l.
Выводится сообщение Преобразованный массив: и производится цикл по элементам массива.
В каждой итерации цикла на экран выводится значение элемента массива.
Если f равно 0, то выводится сообщение Массив не содержит нечётных элементов.
Если f не равно 0, то выводится сообщение Массив не содержит чётных элементов.
Программа ожидает ввода пользователя для завершения работы.