Найти минимальный и максимальный элементы массивы (программку написать)

var arr: array[1 ... 100] of integer;

i, n, max, min: integer;

begin

max:=1;

min:=1;

readln (n) ;

for i:=1 to n do

begin

read (arr[i]) ;

if arr[i] > arr[max] then max:=i

else if arr[i] < arr[min] then min:=i;

end;

writeln;

writeln ('Минимальный: ', arr[min], '') ;

writeln ('Максимальный: ', arr[max], '') ;

end.