Найти максимальный и минимальный элементы последовательности и их произведение

program Project1;
 
uses
  CRT;
const
  maxelem = 10;
var
  a: array [1..maxelem] of integer; {Переменная для  хранения массива.}
  i: integer; { Вспомогательная переменная для организации циклов.}
  minv,maxv: integer; { Переменные для хранения значений минимального и максимального элементов}
begin
  for i:= 1 to maxelem do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(a[i]);            {Ввод значений в массив}
    end;
  clrscr;
  writeln('Исходный массив: ');
  for i:= 1 to maxelem do
    write(a[i]:5);             {Вывод элементов в консоль}
  maxv:= a[1];                     {Установка переменных в начальное состояние}
  minv:= a[1];
  for i:= 2 to maxelem do
    begin
      if a[i] > maxv then          {Условие для поиска максимального значения}
        maxv:= a[i];               {Нахождение максимального значения}
      if a[i] < minv then          {Условие для поиска минимального значения}
        minv:= a[i];               {Нахождение минимального значения}
    end;
  writeln;
  writeln('Элемент с минимальным значением: ', minv);
  writeln('Элемент с максимальным значением: ', maxv);
  writeln('Произведение значений максимального и минимального элементов: ', maxv*minv);
 
  Readln;
end.