Помогите, пожалуйста.

Дан массив размеров N, не превышающий 100. Заполните массив от 0 до N. Вывести номер и значение максимального и минимального элемента.

var  arr: array[1..100] of integer;  i, n, min, max: integer; begin  min:=1;  max:=1;  readln(n);   for i:=1 to n do    begin     arr[i]:=random(100);     write(arr[i], ' ');      if arr[i]>arr[max] then max:=i;      if arr[i]<arr[min] then min:=i;    end;  writeln;  writeln('Минимальный(', arr[min], '); Максимальный(', arr[max], ');'); end.