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

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.