Определить минимальный элемент массива и его порядковый номер

var
  arr: array[1..10] of integer;
  n, i, min, f: integer;
 
begin
  min := 1;
  writeln('Количесво елементов => <10');
  readln(n);
  writeln('Елементи => ');
  for i := 1 to n do
  begin
    read(arr[i]);
    if arr[i] < arr[min] then min := i;
  end;
  writeln('Min = ', arr[min], '  № = ', min);
end.

Program FindingMinElement;
const MaxN = 100; // Ограничимся массивами до MaxN элементов
var a: array [1..MaxN] of integer; // Переменная а - заданный массив целых чисел
    min: integer; // Переменная min - будет хранить индекс минимального элемента
    minValue: integer; // Переменная minValue - будет хранить значение минимального элемента
BEGIN
    {
        Ввод массива можна осуществить по разному,
        я для удобства использую данный  
    }
 
    // Запрашиваем размер массива
    write('Enter size of array(n < ',MaxN,'): ');
    readln(n);
    // Просим пользователя ввести n элементов
    write('Enter ', n, ' elements of array: ');
    // Считываем массив
    for i:=1 to n do read(a[i]);
 
    // Определим, что в min будет хранится индекс минимального из просмотренных элементов
    // а в minValue будет хранится значение минимального из просмотренных элементов
    // Перед началом просмотра всего массива - посмотрим на его первый элемент
    // В этот момент - он минимальный из просмотренных
    min = 1;
    minValue = a[1];
 
    // Смотрим на все остальные элементы массива и сравниваем их с уже пока что найденным минимумом
    for i:=2 to n do
    begin
      // Если текущий элемент меньше минимального - обновляем значение переменных
      if a[i] < minValue then
      begin
        min := i;
        minValue = a[min];
      end;
    end;
    // Выводим результаты
    writeln('Index of minimal element: ',min);
    writeln('Minimal element: ', minValue);
END.

a:array of integer;

Xpf,Ypf:integer;
AfXpf:array[1..4096] of byte;
AfYps:array[0..255] of Tpoint;