(30 баллов)Благой вечер, не могу доделать программку по информатике, поглядите

(30 баллов)Благой вечер, не могу доделать программу по информатике, посмотрите пожалуйста.
Задачка: Поменять местами 1-ый элемент и минимальный. Не разумею,как правильно отыскать мин.элемент и его индекс, чтоб в последующем выполнить условие задачки. Пожалуйста допишите программку с нахождением мин.элем. и его индекса с следующей перестановкой элементов.
P.S. Пропустил эту тему, потому ,если не сделает труднее, распишите все досконально, буду очень признателен.
Program solofor;
Var a:array [1..100] of integer;
i,k1,n:integer;
Begin
Write('введите размер массива:');
readln(n);
Writeln('введите начальный массив=');
Write ('введите k1:');
Readln(k1);
for i to n do read(a[i]);