составить программу в паскале
Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти наибольший и наименьший элементы и их номера. Размер массива произвольный, но не больше 100

И еще: если не работает, то что-то все же пишет. Нужно текст сообщения приводить, если хотите, чтобы Вам что-то разъяснили.

Добавил Вам картинку, чтобы увидели: все работает!

Program z45; Var a: array[1..100] of integer; i, n, max, min, c: integer; Begin Write ('Сколько элементов? '); Readln (n); a[i]:=Random(104)-37; c:=i; min:=c; max:=c; For i:=1 to n do begin a[i]:=Random(104)-37; c:=i; if c<min then min:=c; if c>max then max:=c; end; writeln(max); writeln(min); End.

можете проверить,в чём тут ошибка? я не совсем просто понимаю..

Почему я должен проверять какую-то программу, если вопрос был НАПИСАТЬ? Я написал, все в соответствии с заданием, Паскаль, и даже больше: размер массива не ограничен 100.