Реализовать процедуру поиска max элемента одномерного массива

[deh9]

Реализовать процедуру поиска max элемента одномерного массива ,а затем прибавить max значение ко всем его элементам . Можно пожалуйста полностью программу . Просто недавно начал работать с Delphi.Понимаю,что много прошу,но срочно нужно ,умоляю . Дай бог здоровья всем !

[Artsiom]

Давай функцией?

type
arr = array[0..4] of integer;

var
  myarr : arr;
  I : integer;

function myproc (massiv : arr) : arr;
var
  I : integer;
  max : integer;
begin
  max := 0;
  for I := Low(massiv) to High(massiv) do
    if massiv[i] > max then
      max := massiv[i];
  for I := Low(massiv) to High(massiv) do
    massiv[i] := massiv[i] + max;

  Result := massiv;
end;


begin
  randomize;
  for I := Low(myarr) to High(myarr) do
    myarr[i] := Random(11);

  for I := Low(myarr) to High(myarr) do
    writeln(myarr[i]);
    writeln('');

  myarr := myproc(myarr);

  for I := Low(myarr) to High(myarr) do
    writeln(myarr[i]);

  readln(i);

end.

[Artsiom]

Процедурой не красиво выходит

type
arr = array[0..4] of integer;

var
  myarr : arr;
  I : integer;

procedure myproc ();
var
  I : integer;
  max : integer;
begin
  max := 0;
  for I := Low(myarr) to High(myarr) do
    if myarr[i] > max then
      max := myarr[i];
  for I := Low(myarr) to High(myarr) do
    myarr[i] := myarr[i] + max;
end;


begin
  randomize;
  for I := Low(myarr) to High(myarr) do
    myarr[i] := Random(11);

  for I := Low(myarr) to High(myarr) do
    writeln(myarr[i]);
    writeln('');

  myproc();

  for I := Low(myarr) to High(myarr) do
    writeln(myarr[i]);

  readln(i);

end.