Составить программу, которая преобразует массивы А(10) и В(12) следующим образом: элементы, меньшие среднего арифметического всех элементов заменить нулём. Преобразование массивов оформить в виде подпрограммы — Pascal(Паскаль)

uses crt;
const nmax=100;
type mas=array[1..nmax] of longint;
procedure Vvod(var v:mas;x:byte;c:char);
var i:byte;
begin
writeln('Введите ',x,' элементов массива ',c);
for i:=1 to x do
 begin
  write('v[',i,']=');
  readln(v[i]);
 end;
clrscr;
end;
procedure Vyvod(var v:mas;x:byte;c:char);
var i:byte;
begin
writeln(' массив ',c);
for i:=1 to x do
write(v[i],' ');
writeln;
end;
procedure Zamena(var v:mas;x:byte);
var i,j:byte;
    sr:real;
begin
sr:=0;
for i:=1 to x do
sr:=sr+v[i];
sr:=sr/x;
writeln('Среднее арифметическое=',sr:0:2);
for i:=1 to x do
if v[i]<sr then v[i]:=0;
end;
var a,b:mas;
begin
clrscr;
Vvod(a,10,'A');
write('Исходный');
Vyvod(a,10,'A');
Zamena(a,10);
write('Измененный');
Vyvod(a,10,'A');
Vvod(b,12,'B');
write('Исходный');
Vyvod(b,12,'B');
Zamena(b,12);
write('Измененный');
Vyvod(b,12,'B');
readln
end.