Массив. Переделать программу так, чтобы в ней использовались процедуры.

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j,imn,k,s,s2:byte;
begin
clrscr;
 
write('Размер массива n=');
readln(n);                    {вводим размер массива}
for i:=1 to n do
 begin
 writeln('Введите массив:');
 Readln(a[i]);               {вводим массив}
 end;
 
imn:=1;
for i:=1 to n do                       {находим минимальное}
if a[i]<a[imn] then imn:=i;
writeln('Минимальный элемент=',a[imn],' позиция=',imn);
 
 
for i:=1 to N do                        {получаем среднее арифметическое}
 begin
 s:=s+a[i];
 s2:=s div N;
 end;
writeln('Вставка средне арифметического элемета после минимального:');
for i:=1 to 1 do
write(a[imn],'  ',s2,' ');             {выводим }
readln
 
end.

uses crt;
const max=100;
type m=array[1..max] of integer;
var a:m;
    n,i,j,k,s,s2:byte;
 
procedure  poisk_vstavka(mas:m;kol:integer);
var
imn,i,s,s2:integer;
begin
  imn:=1;
  for i:=1 to kol do                       {находим минимальное}
  if mas[i]<mas[imn] then imn:=i;
  writeln('Минимальный элемент=',mas[imn],' позиция=',imn);
   for i:=1 to kol do                        {получаем среднее арифметическое}
  begin
    s:=s+a[i];
    s2:=s div N;
  end;
  writeln('Вставка средне арифметического элемета после минимального:');
  for i:=1 to 1 do
  write(a[imn],'  ',s2,' ');
end;
begin
  clrscr;
  write('Размер массива n=');
  readln(n);                    {вводим размер массива}
  for i:=1 to n do
  begin
    writeln('Введите массив:');
    Readln(a[i]);               {вводим массив}
  end;
  poisk_vstavka(a,n);
  readln;
end.