Массив, ошибка в задаче Опции

[Lorien]

Есть задачка: Найти минимальный элемент одномерного массива и поменять местами пятый элемент с минимальным. Вывести на экран исходный и результирующий массивы.
Минимальный меняется с 5 элементом,но так же он остается еще и на своем месте.
Например: исходный массив 1 2 3 4 5
min=1
новый массив 1 2 3 4 1

Код

program z1;
var a: array [1..5] of integer;
    i,min,c: integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
writeln('a[i]=',a[i]);
min:=a[1];
for i:=1 to 5 do
if a[i]<min then min:=a[i];
writeln('min=',min);
readln;
a[i]:=min;
min:=a[5];
a[5]:=a[i];
writeln;
for i:=1 to 5 do
writeln(a[i],' ');
readln;
end.