program Temperature;var T: array[1..12] of real;I: integer; Tsred: real;beginfor I:=1 to

Program Temperature;
var T: array[1..12] of real;
I: integer; Tsred: real;
begin
for I:=1 to 12 do
begin
write('T[', I:2,']= ');
read (T[I])
end;
Tsred:=0;
for I:=1 to 12 do
Tsred:=Tsred+T[I];
Tsred:=Tsred/12;
writeln( 'Среднегодовая температура = ', Tsred:6:2, ' градусов');
for I:=l to 12 do
begin
Dt[I]:= T[I] - Tsred;
writeln('Dt[',I:2,']=', Dt[I]:6:2)
end.
Где здесь ошибка??? Пишет ожидался оператор.