program sample;

var 
num, i:integer;
mas_one : array [1..20] of integer;
mas_two : array [1..20] of integer;

begin
//Заполняем и выводим элементы массивов
  i := 1;
  writeln('Массив one: ');
  while i <= high(mas_one) do
  begin
    write(i, ' ');
    mas_one[i] := i;
    mas_two[i] := i+19;
    i := i + 1;
  end;
  writeln;
  i := 1;
  writeln('Массив two: ');
  while i <= high(mas_two) do
  begin
    write(mas_two[i], ' '); 
    i := i + 1;
  end;
  writeln;
  ////////////////////////////////////////////
  var max, min:integer;
  max := 1;
  min := 1;
  i := 1;
  //Ищем максимальный элемент первого массива
  while i <= high(mas_one) do
  begin 
    if mas_one[max] < mas_one[i] then
    begin
    
      max := i;
    end;
    i := i + 1;
  end;
  //////////////////////////////////////////////
  //Ищем минимальный элемент второго массива
  i := 1;
  while i <= high(mas_two) do
  begin 
    if mas_two[min] > mas_two[i] then
    begin
      min := i;
    end;
    i := i + 1;
  end;
  //////////////////////////////////////////////
  //выводим хначения минимального и максимального элементов
  writeln('|||||||||||||||||||||||||||||||||||||||||||||||||||');
  writeln('min = ', mas_two[min], ' max = ', mas_one[max]);
  writeln('|||||||||||||||||||||||||||||||||||||||||||||||||||');
  //////////////////////////////////////////////
  //Проверяем на то что минимальный элемент равен максимальному и если правда заменяем их на 0
  if mas_two[min] = mas_one[max] then
  begin
    mas_two[min] := 0;
    mas_one[max] := 0;
  end;
  /////////////////////////////////////////////
  //Выводим значения элементов массивов
  i := 1;
   writeln('Массив one: ');
  while i <= high(mas_one) do
  begin
    write(mas_one[i], ' ');
    i := i + 1;
  end;
  writeln;
  i := 1;
  writeln('Массив two: ');
  while i <= high(mas_two) do
  begin
    write(mas_two[i], ' '); 
    i := i + 1;
  end;
  writeln;
  ////////////////////////////////////////////
end.