Составить программу, которая все элементы массивов Х(1..10) и Y(1..13), расположенные на чётных местах заменяет нулями, а на нечётных – значением максимального элемента. Преобразование массива оформить в виде подпрограммы — Pascal(Паскаль)

program laba;
uses crt;
const n=10; m=13;
var
x:array[1..n] of integer;
y:array[1..m] of integer;
i,maxy,maxx:integer;
 
begin
clrscr;
randomize;
write('x -  ');
for i:=1 to n do
begin
x[i]:=random(30);
write(x[i]:3);
end;
 
writeln;
writeln;
write('y -  ');
 
for i:=1 to m do
begin
y[i]:=random(30);
write(y[i]:3);
end;
 
writeln;
writeln;
writeln;
 
 
maxx:=x[1];
for i:=2 to n do
begin
if x[i]>maxx then maxx:=x[i];
end;
 
maxy:=y[1];
for i:=2 to m do
begin
if y[i]>maxy then maxy:=y[i];
end;
 
write('x -  ');
for i:=1 to n do
begin
if i mod 2=0 then x[i]:=0 else x[i]:=maxx;
write(x[i]:3);
end;
 
writeln;
writeln;
write('y -  ');
for i:=1 to m do
begin
if i mod 2=0 then y[i]:=0 else y[i]:=maxy;
write(y[i]:3);
end;
 
readln;
end.