процедура поиска максимального элемента массива Pascal ABC

[программирование]

добрый вечер, программисты. помогите, пожалуйста, написать программу!!!

написать процедуру, которая узнает индекс и значение максимального элемента массива. Pascal ABC

вот программа поиска максимального элемента массива, только её нужно изобразить в виде процедуры.

Program MaxElem;
  Uses Crt;
  Type Mas = Array [1..20] of integer;
  Var A    : Mas;
      i, N : Integer;
      k    : Integer;
      Amax : integer;
BEGIN
  clrScr;
  randomize;
  WriteLn('maxElem.in'); ReadLn(N);
  For i := 1 to N do
{–––-Ввод значений элементов массива А–––}
    begin
      A[i]:=random(50);
        write (a[i]:3)
    end;
    writeLn;writeLn('maxElem.out'); {–––Поиск максимального элемента–––}
         Amax:=A[1];k:=1;
  For i := 2 to N do
    If A[i] > Amax then
      begin
        Amax := A[i]; k := i
      end;
   Write(k );
  Write(Amax : 5);
   ReadLn
END.

заранее, всем спасибо.

[Stilet]

Program MaxElem;
  Uses Crt;
  Type Mas = Array [1..20] of integer;
  Var A    : Mas;
      i, N : Integer;
      k    : Integer;
      Amax : integer;

Procedure Poiskk
BEGIN
  clrScr;
  randomize;
  WriteLn('maxElem.in'); ReadLn(N);
  For i := 1 to N do
{–––-Ввод значений элементов массива А–––}
    begin
      A[i]:=random(50);
        write (a[i]:3)
    end;
    writeLn;writeLn('maxElem.out'); {–––Поиск максимального элемента–––}
         Amax:=A[1];k:=1;
  For i := 2 to N do
    If A[i] > Amax then
      begin
        Amax := A[i]; k := i
      end;
   Write(k );
  Write(Amax : 5);
   ReadLn
END; begin Poiskk; end.