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

program Arr;

Var
  Chisla: array [1 .. 7] of integer;
  Str: string;
  Min, p, i: integer;

BEGIN
  writeln('Введите массив');
  for i := 1 to 7 do
    Readln(Chisla[i]); { вводим массив }
  writeln('Выводим массив:');
  for i := 1 to 7 do
    Write(Chisla[i]); { выводим его }
  write(chr(13), chr(10));
  Min := Chisla[1]; { первый элемент за минимум }
  for i := 1 to 7 do
    if Chisla[i] < Min then
    begin
      Min := Chisla[i];
      p := i;
    end;

  writeln('Min=', Min);
  writeln('Index=', p);
  Readln;

END.