Дан одномерный массив из 10-и случайных чисел, сформировать новый массив из данного каждый элемент которого поделён на 3, а максимальный (из всех до деления) обнулён — Pascal(Паскаль)

program PascalGuru;

uses crt;

var
  A, B: array [1 .. 10] of real;
  i, n: integer;

function max(n: integer): real;
var
  i: integer;
  rezult: real;
begin
  rezult := A[1];
  for i := 2 to n do
    if A[i] > rezult then
      rezult := A[i];
  max := rezult;
end;

{ -------------------------------- }
begin
  n := 10;

  for i := 1 to n do
    A[i] := 0 + random(26);

  clrscr;
  writeln('Massiv:');
  write('A: ');
  for i := 1 to n do
    write(A[i]:5:2, ' ');

  writeln;
  writeln;
  writeln('MAX= ', max(n):0:2);
  writeln('Preobrazovannyi massiv:');
  for i := 1 to n do
    if A[i] = max(n) then
      B[i] := 0
    else
      B[i] := A[i] / 3;

  write('B: ');
  for i := 1 to n do
    write(B[i]:5:2, ' ');

  readln;

end.