Найти максимум среди элементов массива, вычесть из всех нечётных элементов массива единицу и поделить на два

for i:=1 to n do
 if  odd(a[i]) then
  a[i]:=(a[i]-1) div 2;

program arr;
uses crt;
const N = 10;
var i, max:Integer;
    a:array [1..N] of Integer;
begin
  clrscr;
  for i:=1 to N do
  begin
    readln(a[i]);
    if i=1 then
      max:=a[i]
    else 
    if a[i]>max then
      max:=a[i];
  end;
  clrscr;
  for i:=1 to N do
    writeln(a[i]);
  writeln;
  writeln(max);
  writeln;
  for i:=1 to N do
  begin
    if i mod 2 <> 0 then
      a[i]:=a[i]-1;
      writeln(a[i]/2);
  end;
end.

  for i:=1 to n do Read(a[i]); ReadLn;
  max:=a[1];
  for i:=2 to n do if max<a[i] then max:=a[i];

  for i:=1 to n do begin
    if Odd(a[i]) then Dec(a[i]);
    a[i]:=a[i] div 2;
    Write(' ',a[i]);
  end; WriteLn;

  for i:=1 to n do begin
    if Odd(a[i]) then begin
      Dec(a[i]); a[i]:=a[i] div 2;
    end;
    Write(' ',a[i]);
  end; WriteLn;

const n=10;
var
  a: array [1..n] of Integer;
  i, m: Integer;
begin
  for i:=1 to n do Read(a[i]); ReadLn;
  m:=a[1]; for i:=2 to n do if m<a[i] then m:=a[i];
  WriteLn('Max = ',m);
  Write('A ='); for i:=1 to n do Write(' ',a[i]); WriteLn;
  for i:=1 to n do begin
    if Odd(a[i]) then Dec(a[i]);
    a[i]:=a[i] div 2;
  end;
  Write('A''='); for i:=1 to n do Write(' ',a[i]); WriteLn;
end.