Составить программу для нахождения разницы между наименьшей и наибольшей температуры за январь (31 день). Значение температуры вводится каждый день. Нужно найти на языке Pascal​

program task;

const n = 31;

var

a: array [1. . n] of integer;

max, min, i : integer;

begin

for i:=1 to 31 do

readln (a[i]);

max:= a[1];

min := a[1];

for i:= 2 to 31 do

if ( a[i] > max ) then

max:= a[i];

for i:=2 to 31 do

if (a[i] < min) then

min := a[i];

writeln('Max: ');

write(max);

writeln('Min: ');

write(min);

end.

Вроде так