Дан одномерный массив на 30 элементов. найдите минимальную температуру второй декады месяца.

Вторая декада означает что надо найти минимальную температуру с 11 по 20 число.
Программа будет работать только с заполненным массивом, это только алгоритм нахождения
var 
a: array [1..30] of integer; 
min,i: integer;
begin
min:= a[11]; 
for i := 11 to 20 do   
if a[i] < min then min := a[i]; 
writeln(min);
end.