Процедуры и функции: Найти максимальный элемент и его порядковый номер среди элементов массива

program MaxElem;
uses Crt;
type Mas = array[1..20] of Real;
var A: Mas;
  i, N: Integer;
  k: Integer;
  Amax: Real;
begin
 
  Write('Введите N = '); ReadLn(N);
  for i := 1 to N do
  begin
    Write('A [ ', i, ' ] = '); ReadLn(A[i])
  end;
  Amax := A[1]; k := 1;
  for i := 2 to N do
    if A[i] > Amax then
    begin
      Amax := A[i]; k := i
    end;
  WriteLn; WriteLn('Наибольший элемент', k, '-й');
  WriteLn('Его значение ', Amax: 5: 1); ReadLn
end.

program MaxElem;
uses 
  Crt;
type 
  Mas = array[1..20] of Real;
var 
  A: Mas;
  i, N: Integer;
  k: Integer;
 
function kMax(const a: mas; const n: integer): integer;
var
  Amax : real;
  i: integer;
begin
  Amax := A[1]; kmax := 1;
  for i := 2 to N do
    if A[i] > Amax then
    begin
      Amax := A[i]; kmax := i
    end;
end;
 
begin
 
  Write('Введите N = '); ReadLn(N);
  for i := 1 to N do
  begin
    Write('A [ ', i, ' ] = '); ReadLn(A[i])
  end;
  k:= kMax(a,n);
  WriteLn; WriteLn('Наибольший элемент ', k, '-й');
  WriteLn('Его значение ', A[k]: 5: 1); ReadLn
end.

program MaxElem;
uses 
  Crt;
type 
  Mas = array[1..20] of Real;
var 
  A: Mas;
  i, N: Integer;
  k: Integer;
  Amax: Real;
 
procedure GetMax (const a: mas; const n: integer; var kMax: integer; var Amax: real);
var
  i: integer;
begin
  Amax := A[1]; kmax := 1;
  for i := 2 to N do
    if A[i] > Amax then
    begin
      Amax := A[i]; kmax := i
    end;
end;
 
begin
 
  Write('Введите N = '); ReadLn(N);
  for i := 1 to N do
  begin
    Write('A [ ', i, ' ] = '); ReadLn(A[i])
  end;
  GetMax(a,n,k,Amax);
  WriteLn; WriteLn('Наибольший элемент ', k, '-й');
  WriteLn('Его значение ', Amax: 5: 1); ReadLn
end.