Даны сведения о различных датах. Каждая дата-это число,месяц,год. Вывести даты,группируя их по временам года.(сначала весенние даты и т.д.) — Pascal(Паскаль)

program z2;

var
  A: array (1 .. 6, 1 .. 6) of integer;
  B: array (1 .. 6, 1 .. 6) of integer;
  C: array (1 .. 6, 1 .. 6) of integer;
  D: array (1 .. 6, 1 .. 6) of integer;
  i, j, minA, minB, minC, minD: integer;

begin

  .. .
  // заполняем массивы
    .. .minA := A[1, 1];
  minB := B[1, 1];
  minC := C[1, 1];
  minD := D[1, 1];
  for i := 1 to 6 do
    for j := 1 to 6 do
    begin
      if A[i, j] < minA then
        minA := A[i, j];
      if B[i, j] < minB then
        minB := B[i, j];
      if C[i, j] < minC then
        minC := C[i, j];
      if D[i, j] < minD then
        minD := D[i, j];
    end;
  .. .. writeln('Сумма ', minA + minB + minC + minD);

end.