Определить самый левый максимальный элемент среди элементов

Условие задачи.

Определить самый левый максимальный элемент среди элементов, стоящих после элемента с заданным номером.
Умножить все элементы массива на найденное максимальное значение, а затем поменять первый элемент и предпоследний.

Решение задачи на Pascal

{ Определить самый левый максимальный элемент среди элементов, стоящих
после элемента с заданным номером, умножить все элементы массива на
найденное максимальное значение, а затем поменять первый элемент
 и предпоследний }

Const 
  n = 15;

Var 
  temp,i : integer;
  max,imax,k : integer;
  a : array [1..n] Of integer;
Begin
  write('Введите номер элемента: ');
  readln(k);
  writeln('Исходный массив:');
  For i:=1 To n Do
    Begin
      a[i] := random(n)-n Div 2;
      write(a[i]:4);
    End;
  writeln;
  max := a[k+1];
  imax := k+1;
  For i:=k+1 To n Do
    If a[i]>max Then
      Begin
        max := a[i];
        imax := i;
      End;
  writeln('Максимальный элемент: ',max,' в позиции: '
          ,imax);
  writeln('Преобразованный массив:');
  For i:=1 To n Do
    Begin
      a[i] := a[i]*max;
      write(a[i]:4);
    End;
  temp := a[n-1];
  a[n-1] := a[1];
  a[1] := temp;
  writeln;
  writeln('Преобразованный массив:');
  For i:=1 To n Do
    Begin
      write(a[i]:4);
    End;
  readln;
End.