В массивах U7 D7 V7 содержатся значенияВ массивах U7 D7 V7 содержатся значения утренней дневной и вечерний температуры соответственно , за каждый день недели , сформировать массив S7 в котором будут содержаться значения средне-дневной температуры, Определить среднее значение температуры за неделю.
Паскаль, помогите!

var  u7, d7, v7, s7: array[1..7] of real;  i: integer;  s: real;begin  writeln('Вводите температуры за утро, день и вечер');  s := 0;  for i := 1 to 7 do  begin    write(i:1, ': ');    readln(u7[i], d7[i], v7[i]);    s7[i] := (u7[i] + d7[i] + v7[i]) / 3;    s := s + s7[i]  end;  s := s / 7;  writeln;  writeln('Средние температуры по дням недели:');  for i := 1 to 7 do    write(s7[i]:0:1, ' ');  writeln;  writeln('Средняя температура за неделю: ', s:0:1)end.Тестовое решение:Вводите температуры за утро, день и вечер1: 19.6 24.8 17.32: 16.8 22.3 18.13: 15.9 24.2 19.04: 18.5 26.8 20.35: 19.2 25.6 21.76: 19.0 23.7 20.17: 18.8 23.9 19.5Средние температуры по дням недели:20.6 19.1 19.7 21.9 22.2 20.9 20.7 Средняя температура за неделю: 20.7