Изменить программу, чтобы она была реализована в процедурах и функциях

var
  a1,a2: array[1..12] of integer;
  i,i_min,i_max,k,tmp: integer;
begin
  writeln('Исходный массив: ');
  for i:=1 to 12 do
  begin
    repeat
      a1[i]:=random(99)+1;
    until a1[i] mod 4=0;
    write(a1[i],' ');
  end;
  writeln;
  i_max:=1; i_min:=1;
  for i:=1 to 12 do
  begin
    if a1[i]>a1[i_max] then i_max:=i;
    if a1[i]<a1[i_min] then i_min:=i;
  end;
 
  if abs(i_max-i_min)=1 then writeln('Максимальный и минимальный элементы - соседи')
  else
    begin
      writeln('Максимальный элемент: ',a1[i_max],', его индекс: ',i_max);
      writeln('Минимальный элемент: ',a1[i_min],', его индекс: ',i_min);
      k:=0;
      if i_max<i_min then
      begin
        tmp:=i_max;
        i_max:=i_min;
        i_min:=tmp;
      end;
      writeln('Полученный массив:');
      for i:=i_min+1 to i_max-1 do
      begin
        inc(k);
        a2[k]:=a1[i];
        write(a2[k],' ');
      end;
    end;
end.

uses crt;
const n=12;
type mas=array[1..n] of integer;
procedure massiv1(var a:mas);
var i:byte;
begin
writeln('Исходный массив: ');
for i:=1 to 12 do
 begin
  repeat
   a[i]:=random(99)+1;
  until a[i] mod 4=0;
  write(a[i]:4);
 end;
writeln;
end;
procedure min_max(a:mas;var i_min,i_max:byte);
var i:byte;
    tmp:integer;
begin
i_max:=1; i_min:=1;
for i:=1 to 12 do
 begin
  if a[i]>a[i_max] then i_max:=i;
  if a[i]<a[i_min] then i_min:=i;
 end;
writeln('Максимальный элемент: ',a[i_max],', его индекс: ',i_max);
writeln('Минимальный элемент: ',a[i_min],', его индекс: ',i_min);
if abs(i_max-i_min)=1 then
 begin
  writeln('Максимальный и минимальный элементы - соседи');
  writeln('Новый массив не может быть создан')
 end
else if i_max<i_min then
 begin
  tmp:=i_max;
  i_max:=i_min;
  i_min:=tmp;
 end;
end;
procedure massiv2(a:mas;i_min,i_max:byte;var b:mas;var k:byte);
var i:byte;
begin
writeln('Полученный массив:');
k:=0;
for i:=i_min+1 to i_max-1 do
 begin
  inc(k);
  a[k]:=a[i];
  write(a[k]:4);
 end;
end;
var a1,a2:mas;
    i_min,i_max,k:byte;
begin
massiv1(a1);
min_max(a1,i_min,i_max);
if abs(i_max-i_min)>1 then massiv2(a1,i_min,i_max,a2,k)
end.