Для массивов А, В, С вычислить выражение - PascalABC.NET

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

Помогите пожалуйста написать программу: Заданы три массива A,B и C, вычислить: t = {min(B)+max(C), если min(A)<max(B); {max(A)+min(C), в противном случае. Здесь min (X) - минимальный, а max (X) - максимальный элемент массива (X).

Решение задачи: «Для массивов А, В, С вычислить выражение»

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

begin
  Randomize;
  
  var a : array of Integer;
  SetLength(a, Random(5,10));
  for var i := 0 to a.Length-1 do a[i] := Random(100);
  WriteLn('a = ', a);
  
  var b : array of Integer;
  SetLength(b, Random(5,10));
  for var i := 0 to b.Length-1 do b[i] := Random(100);
  WriteLn('b = ', b);
 
  var c : array of Integer;
  SetLength(c, Random(5,10));
  for var i := 0 to c.Length-1 do c[i] := Random(100);
  WriteLn('c = ', c);
  
  WriteLn('t = ', (a.Min < B.Max ? b.Min + c.Max : a.Max + c.Min));
end.

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

В начале кода инициализируется генератор случайных чисел с помощью функции Randomize.
Создаются три массива: a, b, c типа array of Integer.
С помощью функции SetLength задается длина каждого массива, которая будет случайным числом от 5 до 10.
В цикле for заполняются элементы каждого массива случайными числами от 1 до 100 с помощью функции Random.
Выводится на экран содержимое каждого массива с помощью функции WriteLn, в формате имя_массива = элементы_массива.
Вычисляется значение переменной t как максимальное из трех возможных значений: минимальное значение из массива a и максимальное значение из массива b, или максимальное значение из массива a и минимальное значение из массива c, или минимальное значение из массива b и максимальное значение из массива c.
Завершается выполнение программы.