Заданы три одномерных массива X, Y, Z. Упорядочить по возрастанию три числа а, b и с, где а — минимальный элемент массива X, b — минимальный элемент массива Y, а с — минимальный элемент массива Z. Поиск минимального элемента оформить в виде процедуры — Pascal(Паскаль)

program Zadanie;

const
  x: array [1 .. 4] of integer = (4, 3, 1, 8);
  y: array [1 .. 3] of integer = (6, 3, 7);
  z: array [1 .. 5] of integer = (2, 5, 8, 0, 3);

var
  MinElement: array [1 .. 3] of integer;
  j, g, temp: integer;

procedure Min;
var
  i: integer;
begin
  MinElement[1] := x[1];
  MinElement[2] := y[1];
  MinElement[3] := z[1];
  for i := 1 to high(x) - 1 do
    if MinElement[1] > x[i + 1] then
      MinElement[1] := x[i + 1];
  for i := 1 to high(y) - 1 do
    if MinElement[2] > y[i + 1] then
      MinElement[2] := y[i + 1];
  for i := 1 to high(z) - 1 do
    if MinElement[3] > z[i + 1] then
      MinElement[3] := z[i + 1];
end;

begin
  Min;
  for j := 2 to high(MinElement) do
    for g := high(MinElement) downto j do
      if MinElement[g - 1] > MinElement[g] then
      begin
        temp := MinElement[g - 1];
        MinElement[g - 1] := MinElement[g];
        MinElement[g] := temp;
      end;
  for j := 1 to high(MinElement) do
    Write(MinElement[j], ' ');
  ReadLn;

end.