дана последовательность n целых чисел, найти минимальный и максимальный члены последовательности и их номера

[dmitriy20104]

дана последовательность n целых чисел:a1,a2,..,an. найти минимальный и максимальный члены последовательности и их номера.

[BDA]

uses
  crt;

var
  a, n, i, max, min, posmax, posmin: integer;

begin
  readln(n);
  if n < 1 then exit;
  read(a);
  max := a;
  min := a;
  posmax := 1;
  posmin := 1;
  for i := 2 to n do
  begin
    read(a);
    if a > max then
    begin
      max := a;
      posmax := i;
    end
    else
    if a < min then
    begin
      min := a;
      posmin := i;
    end; 
  end;
  writeln('Max element ', max, ' on position ', posmax);
  writeln('Min element ', min, ' on position ', posmin);
  readln;
end.