Переписать код под процедуру

var
  A : array[1..100] of byte;
  M, i : byte;
  
begin
  randomize;
  repeat
   writeln('введите размер массива M');
   readln(M)
  until(M > 1) and (M <= 100);
  for i := 1 to M do
  begin
    A[i] := random(20)+1;
    write(A[i]:4)
  end;
  writeln;
  for i := 2 to M - 1 do
    if (a[i] mod 2 = 0) and (a[i-1] mod 2 <> 0) and (a[i+1] mod 2 <> 0)
    then a[i] := a[i] div 2;
  for i := 1 to M do
    write(A[i]:4);
  writeln;
  readln
end.

var
  A : array[1..100] of byte;
  M, i : byte;
 
procedure input;
var y : byte;
begin
  repeat
    writeln('введите размер массива M');
    readln(M)
  until(M > 1) and (M <= 100);
  for y := 1 to M do
  begin
    A[y] := random(20)+1;
    write(A[y]:4)
  end;
end;
 
begin
  randomize;
  input;
  writeln;
  for i := 2 to M - 1 do
    if (a[i] mod 2 = 0) and (a[i-1] mod 2 <> 0) and (a[i+1] mod 2 <> 0)
    then a[i] := a[i] div 2;
  for i := 1 to M do
  write(A[i]:4);
  writeln;
  readln
end.