procedure max(mas: array of integer; razmer: integer);
var
  i, ma: integer;
begin
  setlength(mas, razmer + 1);
  ma := mas[1];
  for i := 2 to razmer do
    if mas[i] > ma then ma := mas[i];
  writeln('Максимальное в массиве: ', ma);
end;

procedure min(mas: array of integer; razmer: integer);
var
  i, mi: integer;
begin
  setlength(mas, razmer + 1);
  mi := mas[1];
  for i := 2 to razmer do
    if mas[i] < mi then mi := mas[i];
  writeln('Минимальное в массиве: ', mi);
end;

var
  a, b, c: array of integer;
  n, m, k, j: integer;

begin
 writeln('Введите n(размер массива a): ');
 readln(n);
 setlength(a, n+1);
 writeln('Введите элементы массива a: ');
 for j:=1 to n do read(a[j]);
 max(a, n); min(a, n); 

 writeln('Введите m(размер массива b): ');
 readln(m);
 setlength(b, m+1);
 writeln('Введите элементы массива b: ');
 for j:=1 to m do read(b[j]);
 max(b, m); min(b, m); 

 writeln('Введите k(размер массива c): ');
 readln(k);
 setlength(c, k+1);
 writeln('Введите элементы массива c: ');
 for j:=1 to k do read(c[j]);
 max(c, k); min(c, k); 
end.