Паскаль. Температура измеряется каждые 3 часа. Определить наивысшую среднесуточную температуру за прошедшую неделю. Для заполнения таблицы температур используйте датчик случайных чисел

Программа:const m=7; n=8;var t:array[1..m,1..n] of integer;i,j:integer; s,max:real;beginRandomize;writeln('Результаты измерений:');writeln('   0   3   6   9  12  15  18  21');writeln(' -------------------------------');for i:=1 to m do begin for j:=1 to n do  begin   t[i,j]:=random(10)-5;   write(t[i,j]:4);  end;  writeln; end;max:=-200;for i:=1 to m do begin s:=0; for j:=1 to n do s:=s+t[i,j]; s:=s/n; if s>max then max:=s; end;writeln('max = ',max:5:1);end.Пример:Результаты измерений:   0   3   6   9  12  15  18  21 -------------------------------  -4   4   2  -4   0  -1   4   1  -5  -2   2   3   4   0  -5  -3  -4  -4   2   0  -3  -1  -1  -4  -5  -3   4  -3  -4   1  -4   3   4  -1  -5  -1  -5   2   1  -1  -1   2   3  -1  -5   3   2   4   1  -5  -5  -1   0   0   1   2max =   0.9