Дан одномерный массив из n целых чисел. составить программу нахождения максимального и минимального элементов.

Var a:array of integer;
  i,n,mn,mx: integer;
begin
  write('размерность массива = ');
  readln(n);
  SetLength(a, n);
  for i := 0 to n-1 do begin
    write('a[',i,']=');
    readln(a[i]);
  end;
  
  mn := a[0]; 
  mx := a[0];
  for i := 1 to n-1 do begin
    if mn > a[i] then mn := a[i];
    if mx < a[i] then mx := a[i];
  end;
  
  writeln('минимальный элемент = ', mn);
  writeln('максимальный элемент = ', mx);
end.