В массивах Td B Tn хранятся результаты измерения дневной и ночной температуры за 7 дней. Определить среднесуточную температуру за неделю

Var Td, Tn:array[1 ... 7]of real; i, k:integer; m, z:real;

begin

for i:=1 to 7 do

begin

writeln ('Введите дневневную температуру в день', i) ;

readln (Td[i]) ;

m:=m+Td[i];

end;

for k:=1 to 7 do

begin

writeln ('Введите ночную температуру в день', k) ;

readln (Tn[i]) ;

m:=m+Tn[i];

end;

z:=m/14;

writeln ('средняя температура=', z) ;

end.