Как вывести порядковый номер элемента массива - Pascal

Формулировка задачи:

В общем, я написал программу для этой задачи:

Найти наименьший элемент массива (начиная с k-го) и его порядковый номер. Поменять местами k-тый и найденный минимальный элемент.

А про то как вывести, никак не могу вспомнить, а процесс гугления уже к успеху не приводит, из-за и так большого объёма информации по паскалю "влитого" за вчерашний вечер.

program zad1;
uses crt;
var
a:array [1..100] of integer;
k,i,min,pr:byte;
 
begin
clrscr;
writeln ('введите номер k элемента массива, от 1 до 99 ');
readln (k);
min:=k;
writeln ('Заполнение массива случайными числами в пределах 255');
 randomize;
  for i:=k to 100 do begin
   a[i]:= random(255)+1;
    if min > a[i] then min:=a[i];
    writeln (min);
  end;
pr:=min;
min:=a[k];
a[k]:=pr;
readkey;
end.

Решение задачи: «Как вывести порядковый номер элемента массива»

Листинг программы

program zad1;
uses crt;
var
a:array [1..100] of integer;
k,i,min,pr:byte;
begin
clrscr;
writeln ('введите номер k элемента массива, от 1 до 99 ');
readln (k);
min:=k;
writeln ('Заполнение массива случайными числами в пределах 255');
 randomize;
  for i:=1 to 100 do 
begin
   a[i]:= random(255)+1;
    write(a[i]:4);
 end;
writeln;
for i:=k to 100 do 
   if (a[min] > a[i]) 
      then min:=i;
 
 
writeln('min = ',a[min]:4,'min number = ',min:3);    
pr:=a[min];
a[min]:=a[k];
a[k]:=pr;
writeln('new array:');
for i:=k to 100 do 
    write(a[i]:4);
readkey;
end.

Объяснение кода листинга программы

В этом коде используется язык программирования Pascal. Вот список действий, которые выполняются в этом коде:

Создается массив a размером от 1 до 100 для хранения целых чисел.
Инициализируются переменные k, i, min, pr как байты. Значение k будет использоваться для поиска минимального элемента в массиве, а min и pr для временного хранения минимального элемента и его индекса.
Массив a заполняется случайными целыми числами в диапазоне от 1 до 255 с помощью функции randomize и цикла for. Каждое случайное число записывается в соответствующий элемент массива и выводится на экран.
С помощью цикла for и условного выражения if находится индекс минимального элемента в массиве.
Минимальный элемент присваивается переменной pr, а его индекс — переменной min.
Значение min заменяется на значение k.
Значение k заменяется на значение pr.
С помощью цикла for и функции write выводятся все элементы нового массива.
Программа ожидает нажатия клавиши с помощью функции readkey. Обратите внимание, что в этом коде нет обработки ошибок или проверки на выход за границы массива.