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

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 < b Then 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.