ДЗ. Алгоритмы действий над элементами двумерного массива

Задача 1. В течение недели измерялась температура три раза в день: утром, в обед и вечером. Показания записали в таблицу размерностью 7х3. Определить среднюю температуру за каждый день.

Решите в паскале пожалуйста!
СРОЧНО!

Var  a: array[1..7, 1..3] of integer;  s, i, j: integer;begin  for i:=1 to 7 do     for j:=1 to 3 do       readln (a[i, j]);  for i:=1 to 7 do  begin    s:=0;    for j:=1 to 3 do      s:=s+a[i,j];    writeln(Средняя температура для дня №, i, равна , s/3);  end;end.

Var
    a: array[1..7, 1..3] of integer;
    s, i, j: integer;

begin
    
    for i := 1 to 7 do
        for j := 1 to 3 do
            a[i, j] := random(100);
    
    for i := 1 to 7 do
    begin
        s := 0;
        for j := 1 to 3 do
            s := s + a[i, j];
            
        writeln(День - , i, , Средняя температура = , (s / 3):2:2, гр.);
    end;
end.