Дан массив размеров 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.