Упорядочить по возрастанию минимальные элементы каждого из векторов - Pascal

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

Использование функций в паскале. Заданы три вектора X=(X1,X2,…,Xn), Y=(Y1,Y2,…,Yn), Z=(Z1,Z2,…,Zn). Упорядочить по возрастанию минимальные элементы каждого из этих векторов. Длины векторов n ≤ 7;m ≤ 9;l ≤ 5. Помогите!

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

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

function GetMin(const s: String): Integer;
var n, p, t: Integer;
begin
  Write(s,': '); Read(n,p);
  for n:=2 to n do begin Read(t); if p>t then p:=t; end;
  GetMin:=p;
end;
var x, y, z, t: Integer;
begin
  x:=GetMin('n'); y:=GetMin('m'); z:=GetMin('l');
  if x>y then begin t:=x; x:=y; y:=t; end;
  if y>z then begin t:=y; y:=z; z:=t; end;
  if x>y then begin t:=x; x:=y; y:=t; end;
  WriteLn(x,' ',y,' ',z);
end.

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

Объявление функции
- Название функции: GetMin
- Параметр: s (тип String)
- Возвращаемый тип: Integer
Объявление локальных переменных функции GetMin
- n, p, t (тип Integer)
Тело функции GetMin
- Вывод на экран строки s и считывание чисел n и p
- Цикл от 2 до n, в котором считывается число t и, если оно меньше p, то p присваивается значение t
- Возвращается значение p
Объявление переменных в основной программе
- x, y, z, t (тип Integer)
Тело основного блока программы
- Присваивание переменным x, y, z значений, возвращаемых функцией GetMin для строк 'n', 'm' и 'l' соответственно
- Если x больше y, то значения x и y меняются местами
- Если y больше z, то значения y и z меняются местами
- Если x больше y, то значения x и y меняются местами
- Вывод на экран значений переменных x, y, z через пробел Данный код сначала определяет функцию GetMin для поиска минимального элемента в строке, а затем использует эту функцию для определения минимальных значений для трех строк 'n', 'm' и 'l', и затем упорядочивает их по возрастанию, выводя результат на экран.