Проверьте программу и исправьте ошибки пожалуйста.

Program Mesyz;
var
t:array [1..12] of real;
I:integer;
begin
for i:=1 to 12 do
begin
writeln ('введите среднюю температуру месяца №',i);
readln (t[i]);
end;
writeln ('Средняя температура зимних месяцев', (((t[12]+t[1]+t[2])/3):0:1));
writeln ('Средняя температура весенних месяцев',(((t[3]+t[4]+t[5]/3):0:1))
writeln ('Средняя температура летних месяцев:',(((t[6]+t[7]+t[8])/3):0:1));
writeln ('Средняя температура осенних месяцев',(((t[9]+t[10]+t[11]/3):0:1));
end