Известны данные о среднемесячной температуре за год. Определить,какая была самая высокая температура летом и самая низкая зимой. Нужен код программы в паскаль.

Program Task;
Const m = 12;
Var a: Array [1..m] of Integer;
i: Integer;

Function Max(a, b: Integer): Integer;
Begin
If a > b Then
Result := a
Else
Result := b;
End;

Function Min(a, b: Integer): Integer;
Begin
If a Result := a
Else
Result := b;
End;
Begin
WriteLn(Введите среднемесячные температуры за год (через пробел));
For i := 1 To m Do
Read(a[i]);
WriteLn(Самая высокая температура летом равна , Max(Max(a[6], a[7]), a[8]));
WriteLn(Самая низкая температура зимой равна , Min(Min(a[11], a[12]), a[1]));
ReadLn;
End.