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

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.