Завести в программе массив Dot{любые 8 целых чисел от 1 до 100}. Найти минимальный элемент массива и его номер и вывести его на экран.

паскальvar dot: array [1..8] of integer;             i,max,maxi:integer;beginmax:=0; for i:=1 to 9 do // создание массиваreadln(a[i]); for i:=1 to 9 doif max<a[i] then // поиск максимальногоbegin max:=a[i];maxi:=i;end;writeln(max," ",maxi);end;