Поменять местами самый левый минимальный элемент со вторым элементам массива, а затем поделить на найденное минимальное значение все элементы второй половины массива — Pascal(Паскаль)

uses crt;

const
  n = 5;

var
  a: array [1 .. n] of integer;
  i, min, p: integer;

begin
  clrscr;
  min := a[1];
  writeln('ishodnii massiv: ');
  for i := 1 to n do
  begin
    write('a[', i, ']=');
    read(a[i]);
    p := a[2];
    if a[i] < min then
    begin
      min := a[i];
      a[i] := a[2];
      a[2] := min
    end;
    if a[1] < a[2] then
    begin
      a[2] := a[1];
      a[1] := p;
    end;
  end;
  for i := 1 to n do
    write(a[i]:3);
  readkey;

end.