Даны целые числа a1,...,an, b1,..,bm, k

uses crt;
Type arr=array[1..100] of integer;
 
procedure InputMassiveAandB(var ar,br:arr; var n,m:byte);
var i:byte;
begin
Randomize;
repeat
Write('n=');
Readln(n);
until n in [1..100];
for i:=1 to n do
 ar[i]:=random(20)-10;
repeat
Write('m=');
Readln(m);
until m in [1..100];
for i:=1 to m do
 br[i]:=random(20)-10;
end;
 
procedure InMassiveA(a:arr; n:byte);
var i:byte;
    k,max,imax:byte;
begin
max:=1;
imax:=1;
for i:=1 to n do
 if a[i]>max then
  begin
   max:=a[i];
   imax:=i;
  end;
Writeln('Vvedite k(A) ');
Readln(k);
for i:=1 to n do
 if a[i]<>k then
  a[imax]:=k;
Writeln('Massive A(rezultat)');
for i:=1 to n do
 Write(a[i],'  ');
end;
 
procedure InMassiveB(var b:arr; m:byte);
var i:byte;
    k,max,imax:byte;
begin
max:=1;
imax:=1;
for i:=1 to m do
 if b[i]>max then
  begin
   max:=b[i];
   imax:=i;
  end;
Writeln('Vvedite k(B) ');
Readln(k);
for i:=1 to m do
 if b[i]<>k then
  b[imax]:=10;
Writeln('Massive B(rezultat)');
for i:=1 to m do
 Write(b[i],'  ');
end;
 
procedure OutputMassiveAandB(var ar,br:arr; n,m:byte);
var i:byte;
begin
Writeln('Massiv A');
for i:=1 to n do
 Write(ar[i],'  ');
Writeln;
Writeln('Massiv B');
for i:=1 to m do
 Write(br[i],'  ');
end;
 
var a,b:arr;
    i,x,l:byte;
begin
ClrScr;
InputMassiveAandB(a,b,x,l);
OutputMassiveAandB(a,b,x,l);
Writeln;
InMassiveA(a,x);
Writeln;
InMassiveB(b,x);
Readln;
end.