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

const
  n = 25;
 
type
  mas = array[1..n] of integer;
 
var
  a: mas;
  i, j, k, max: integer;
 
procedure random_mas(var a: mas);
var
  i: integer;
begin
  for i := 1 to n do 
  begin
    a[i] := random(100);
    repeat
      if (odd(a[i])) then a[i] := random(10);
    until a[i] mod 2 = 0; end;
end;
 
procedure print_mas(a: mas);
var
  i: integer;
begin
  for i := 1 to n do
    write(a[i], ' ');
  writeln;
end;
 
procedure maxchangesum;
var
  i: integer;
begin
  max := a[1];
  for i := 2 to n do
    if a[i] > max then
    begin
      max := a[i]; 
      j := i;
      a[1] := max; 
      a[n] := max; 
      a[j] := 2 * max;
    end; end;
 
begin
  writeln('Исходный массив из четных элементов');
  random_mas(a);
  print_mas(a);
  maxchangesum;
  writeln('Максимальный элемент ', max, ' его номер: ', j);
  writeln('Новый массив');
  print_mas(a);
end.

const
  n = 25;
 
type
  mas = array[1..n] of integer;
 
var
  a: mas;
  i, j, k, max: integer;
 
procedure random_mas(var a: mas);
var
  i: integer;
begin
  for i := 1 to n do 
  begin
    a[i] := random(100);
    repeat
      if (odd(a[i])) then a[i] := random(10);
    until a[i] mod 2 = 0; end;
end;
 
procedure print_mas(a: mas);
var
  i: integer;
begin
  for i := 1 to n do
    write(a[i], ' ');
  writeln;
end;
 
procedure maxchangesum;
var
  i,f: integer;
begin
f:=a[1]+a[25];
  max := a[1];
  for i := 2 to n do
    if a[i] > max then
    begin
      max := a[i]; 
      j := i;
      a[1] := max; 
      a[n] := max; 
      a[j] := f;
    end; end;
 
begin
  writeln('Исходный массив из четных элементов');
  random_mas(a);
  print_mas(a);
  maxchangesum;
  writeln('Максимальный элемент ', max, ' его номер: ', j);
  writeln('Новый массив');
  print_mas(a);
end.

Var
arr,A:array[1..25] of integer;
 i, j, k, max: integer;
f:boolean;
begin 
 
randomize;
write('массив:');
for i:=1 to 25  do
 begin  
  arr[i]:=random(100); 
  if arr[i] mod 2 =0 then 
  arr[i]:=arr[i]+1;
  write (arr[i]:4);
   end;
    writeln;    
    A:=arr;     
for i:= 1 to 24 do
  for j:= 1 to 25-i do
  begin

program L;
 
{28.     Дана последовательность х1, х2, …, хn. Найдите наибольший по модулю элемент последовательности с указанием его номера.}
uses
    crt;
const
     maxn=100;
var
   maxmod:real;
   i,n,t,nmb:integer;
   a:array[1..maxn] of real;
begin
clrscr;
    write('Введите количество элементов последовательности: ');
    readln(n);
    writeln('Введите значения каждого элемента последовательности');
for i := 1 to n do
    begin
         write('a[', i, ']=');
         readln(a[i]);//вводим значение каждого элемента последовательности
    end;
        maxmod := abs(a[1]);//присваеваем переменной максимального по модулю числа значение первого элемента последовательности по модулю
for i := 1 to n do
    begin
         if maxmod <= abs(a[i]) then// сравниваем каждый элемент последовательности
            begin
                 nmb := i;//номер максимального по модулю элемента последовательности
                 maxmod := abs(a[i]);//значение этого элемента
            end;
    end;
    writeln('Наибольший по модулю элемент последовательности имеет номер ', nmb, ', а значение ', a[nmb]);
end.

uses crt;
var a: array [1..25] of integer;
    i,imax: byte;
    buf: integer;
    
begin
writeln('Исходный массив');
imax:=1;
for i:=1 to 25 do
    begin
    repeat
    a[i]:=random(199)-99;
    until a[i] mod 2=0;
    write(a[i]:4);
    if a[i]>a[imax] then imax:=i;
    end;
writeln;
writeln('Максимальный элемент=',a[imax],' под индексом ',imax);
buf:=a[imax];
a[imax]:=a[1]+a[25];
a[1]:=buf; a[25]:=buf;
writeln('Преобразованный массив');
for i:=1 to 25 do
    write(a[i]:4);
end.