Даны векторы a и b , состоящие из семи компонентов. Найти max(max(Ai), max(Bi), max(¦Ai-Bi¦), max(Ai+Bі),1)

const m = 7;
 
type TArray = array [1..m] of integer;
 
function abs_sub(var x, y: TArray): TArray;
var i: integer;
begin
  for i := 1 to m do abs_sub[i] := abs(x[i] - y[i])
end;
 
function sum(var x, y: TArray): TArray;
var i: integer;
begin
  for i := 1 to m do sum[i] := x[i] + y[i]
end;
 
function maxv(x: TArray): integer;
var i, mx: integer;
begin
  mx := x[1];
  for i := 2 to m do if mx < x[i] then mx := x[i];
  maxv := mx
end;
 
function max(x, y: integer): integer;
begin
  if y > x then max := y else max := x
end;
 
procedure read_arr(s: string; var x: TArray);
var i: integer;
begin
  writeln('Введите элементы вектора ', s, ':');
  for i := 1 to m do
    begin
      write(s, '[', i, '] = ');
      readln(x[i])
    end;
end;
 
procedure prn_arr(s: string; var x: TArray);
var i: integer;
begin
  writeln('Вектор ', s, ':');
  for i := 1 to m do write(x[i], ' ');
  writeln
end;
 
var a, b: TArray;
begin
  read_arr('A', a);
  read_arr('B', b);
  prn_arr('A', a);
  prn_arr('B', b);
  write('max(max(Ai), max(Bi), max(|Ai-Bi|), max(Ai+Bi), 1) = ',
    max(maxv(a), max(maxv(b), max(maxv(abs_sub(a, b)), max(maxv(sum(a, b)), 1)))));
  readln
end.