Что я не так написал?
Вы нарушили формат оператора ввода Read/Readln - в списке ввода не может быть указан массив, тем более, в такой форме, как у Вас. Следовало писать for i:=1 to n do Read(a[i]);
а куда именно написать то это ?(
вообще задание звучит вот так вот "Дана последовательность целых чисел а1, a2, … , an. Напечатайте порядковые номера наименьшего и наибольшего членов последовательности."