Даны натуральные n, m и последовательности вещественных чисел х1, х2, …, хn, y1, y2, …, ym. Найти разности максимумов и минимумов каждой последовательности — Pascal(Паскаль)

uses crt;
type arr=array[1..100] of integer;
     brr=array[1..100] of integer;
     
procedure AMas(var a:arr; var n:byte);
var i,j:byte;
begin
Randomize;
repeat
Write('n=');
Readln(n);
until n in [1..100];
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i],'  ');
 end;
end;
 
procedure BMas(var b:brr; var m:byte);
var i,j:byte;
begin
Randomize;
repeat
Write('m=');
Readln(m);
until m in [1..100];
for i:=1 to m do
 begin
  b[i]:=random(20)-10;
  Write(b[i],'  ');
 end;
end;
 
procedure MasA(a:arr; n:byte; var amax,amin:integer);
var i,j:byte;
begin
amin:=a[1];
amax:=a[1];
for i:=2 to n do
 if a[i]>amax then
  amax:=a[i]
 else
  if a[i]<amin then
   amin:=a[i];
end;
 
procedure Masb(b:brr; m:byte; var bmax,bmin:integer);
var i,j:byte;
begin
bmin:=b[1];
bmax:=b[1];
for i:=2 to m do
 if b[i]>bmax then
  bmax:=b[i]
 else
  if b[i]<bmin then
   bmin:=b[i];
end;
 
procedure Lock(a:arr; b:brr; n,m:byte);
var maxa,minb,maxb,mina:integer;
begin
MasA(a,m,maxa,mina);
MasB(b,n,maxb,minb);
Writeln('Min ',maxa-maxb);
Writeln('Max ',mina-minb);
end;
 
var a:arr;
    b:brr;
    k,l:byte;
    maxa,minb,maxb,mina:integer;
begin
ClrScr;
AMas(a,k);
Writeln;
BMas(b,l);
Lock(a,b,k,l);
Readln;
end.