Дан объем продукции, выпущенной заводом за год (помесячно). Найти наименьший объем. В качестве результата вывести номер месяца и объем выпущенной продукции- Pascal(Паскаль)

program aaa;
  var a:array[1..12] of integer;
  i,k, max:integer;
begin
for i:=1 to 12 do
  readln(a[i]);
 
 max:=a[1];
 k:=1;
 for i:=2 to 12 do 
  begin
    if a[i]>max then 
      begin
        max:=a[i];
        k:=i;
      end;
   end;
writeln('month:',k,' goods: ',a[k]);
end.