В одномерном массиве поменять местами максимальные элемент с к-ым элементом массива - Pascal

Формулировка задачи:

В одномерном массиве поменять местами максимальные элемент с к-ым элементом массива

Решение задачи: «В одномерном массиве поменять местами максимальные элемент с к-ым элементом массива»

Листинг программы

var a: array [1..100] of integer;
    i, imax, k, n: byte;
    x: integer;
begin
  randomize;
  write('Длина массива: ');
  readln(n);
  imax := 1;
  for i := 1 to n do begin
    a[i] := random(50) - 25;
    write(a[i], ' ');
    if a[imax] < a[i] then imax := i;
  end;
  writeln;
  write('K = ');
  readln(k);
  x := a[imax];
  a[imax] := a[k];
  a[k] := x;
  for i := 1 to n do
    write(a[i], ' ');
end.

Объяснение кода листинга программы

Объявляются переменные: — a: массив из 100 целых чисел; — i, imax, k, n: булевые числа (byte); — x: целое число.
Задаётся начальное значение для i равное 1.
В цикле for от 1 до n происходит следующее: — a[i] присваивается случайное число от 0 до 49 (т.е. 50 - 25 = 25); — выводится значение a[i]; — если a[i] больше текущего максимального значения (a[imax]), то обновляется значение imax; — после цикла, в переменной imax будет храниться номер элемента с максимальным значением.
Задаётся значение k с помощью функции readln.
Значение k используется для получения значения a[k], которое затем присваивается x.
Значение a[imax] присваивается a[k].
Значение x присваивается a[k].
В цикле for от 1 до n выводятся значения a[i].