Помогите пожалуйста составить массив констант в Паскале. 1 задание

program mc;

uses

crt;

var

i: integer;

const

ac: array [1..7] of integer = (18, 20, 22, 19, 17, 18, 20);

begin

for i := 1 to 7 do

writeln(i, '-й день: температура воздуха ', ac[i], ' градусов.');

readln;

end.