Дан массив целых чисел. Найти минимальный элемент в массиве. Вставить после минимального элемента первый элемент этого массива — Pascal(Паскаль)

program massiv;
uses crt;
type mas=array[1..100] of integer;
function Min(v:mas;x:byte):byte;
var i,imn:byte;
begin
imn:=1;
for i:=1 to x do
if v[i]<v[imn] then imn:=i;
Min:=imn;
end;
var a:mas;
    i,n,k:integer;
begin
clrscr;
writeln('введите количество элементов массива');
readln(n);
writeln('введите элементы массива');
for i:=1 to n do
readln( a[i] );
k:=Min(a,n);
writeln( 'наименьший элемент =  ', a[k]);
writeln( 'первый элемент =  ', a[1] );
for i:=n+1 downto k+2 do
a[i]:=a[i-1];
a[k+1]:=a[1];
writeln('Вставка первого элемента после минимального:');
for i:=1 to n+1 do
write(a[i],' ');
readln
end.