Оригинал статьи: http://www.cyberforum.ru/pascal/thread133142.html
Благодарен всем авторам, которые внесли свой вклад в сборку кода.

 
 var
  a: array[1..100]of integer;
  N, i, min, max: integer;

begin
  Write('Количество элементов массива=');
  readln(n);  
  writeln('Оригинал:');
  for i := 1 to n do
  begin
    a[i] := random(10);
    write(a[i]:3);
  end;
  Writeln;
  min := 1;
  max := 2;
  for i := 1 to N do 
    if a[i] > a[max] then max := i 
    else 
    if a[i] < a[min] then min := i;

  writeln('MAX = A[', max, '] = ', a[max]);
  writeln('MIN = A[', min, '] = ', a[min]);
  
end.