Работа с несколькими массивами - Pascal

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

Даны два массива А и В одинакового размера N. Сформировать новый массив С того же размера, каждый элемент которого равен максимальному из элементов массивов А и В с тем же индексом. Заранее спасибо

Решение задачи: «Работа с несколькими массивами»

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

For i:=1 to N do C[i]:=A[i]*(Ord(A[i]>=B[i]))+B[i]*(Ord(B[i]>A[i]));

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

Задаются три массива A, B, C.
В цикле от 1 до N происходит расчет значения элемента массива C.
Значение элемента массива C получается путем умножения значения элемента массива A на условие Ord(A[i]>=B[i]) и добавления произведения значения элемента массива B на условие Ord(B[i]>A[i]).
Значение элемента массива A используется для сравнения с элементами массива B.
Результат сравнения используется для получения значения элемента массива C.