Дан одномерный массив случайных чисел. Сформировать новый массив из данного, каждый элемент из которого вычтен максимальный элемент данного массива — Pascal(Паскаль)

program PascalGuru;

uses crt;

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

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

{ -------------------------------- }
begin

  writeln('Vvod massiv:');
  write('Razmer massiva "n": ');
  readln(n);
  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], ' ');

  writeln;
  writeln;
  writeln('Preobrazovannyi massiv:');
  for i := 1 to n do
    B[i] := A[i] - max(n);
  write('B: ');
  for i := 1 to n do
    write(B[i], ' ');

  readln;

end.